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FOREWORD 


This is Volume III, The Computer Users Manual, of the final Technical 
Report prepared by the Advanced Engineering and Technology Programs Department, 
Aircraft Engine Group of the General Electric Company, Evendale, Ohio under 
the joint sponsorship of the Air Force Aero-Propulsion Laboratory, Wright- 
Patterson Air Force Base, Ohio and the Department of Transportation, Washington, 
D.C. under Contract F33615-73-C-2031. The inclusive dates for this work 
were December 1972 through August 1975. The work was accomplished under 
Project 3066, Task 14, Work Unit 07, with Mr. Paul A. Shahady (AFAPL/TBC) 
as Project Engineer. Dr. Paul R. Knott of the General Electric Company was 
technically responsible for the work. Other General Electric personnel were: 
Mr. David R. Ferguson, Applied Computer Methods, and Mr. Michael A. Smith, 
Acoustic Engineer. Additionally, Drs. C. L. Merkle and C. Y. Chen contributed 
to the work but, are no longer at the General Electric Company. 
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INTRODUCTION 


During the course of this Supersonic Jet Exhaust Noise Investigation, 
the General Electric Company has developed a number of computational aero- 
dynamic and acoustic predictive schemes. These computational methods were 
developed primarily to characterize key aerodynamic and acoustic features of 
unheated and heated subsonic and supersonic simple circular jets. Extensive 
accounts of these methods have been documented earlier. Some of the key 
documents are AFAPL-TR-72-52, AFAPL-TR-74-25, J. of S&V 25 (1972), ALAA 
73-188, Proceedings of HT&FMI (1974), as well as the results presented in 
Volume II of this final report. This report is a computer user's manual for 
the developed programs. 


The overall computer system is called the "Supersonic Jet Noise Pre- 
diction System" (SSNOISE). It is composed of four programs: JETMIX - 
an aerodynamic program for planar and axisymmetric compressible turbulent 
mixing jets. It also contains options for confined jet mixing, a coannular/ 
coplanar free jet, the influences of external flow on jet mixing, and 
composition of chemically inert species throughout the flowfield. SSFD - 
an inviscid analysis of supersonic turbulent jets including shock waves. 
MERGE - a collation program of the aerodynamic output of JETMIX and SSFD. 
NOISE - predictive schemes for turbulent mixing aerodynamic noise. 


Section 1.0 contains the general program concepts and descriptions of 
JETMIX, SSFD, MERGE, and NOISE. Section 2.0 discusses the detailed input 
requirements of the Supersonic Jet Noise Prediction Programs (SSNOISE), 
while Section 3.0 describes the output and a sample case. Section 4.0 
discusses the general operating procedures. Following Section 4.0, there 
is a series of appendices which are dedicated toward the mathematical 
analysis incorporated in SSNOISE, as well as a series of input sheets and 
program listings. The last enclosure is the Reference listing. 
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SECTION 1.0 


PROGRAM DESCRIPTION 


1.1 GENERAL DESCRIPTION 


The Supersonic Jet Noise Prediction System (SSNOISE) provides an analy- 
tical tool for determination of the aerodynamic flow field and the associated 
aerodynamic noise of supersonic turbulent jets. The SSNOISE system is com- 
posed of four programs which may be either run alone or in sequence. They 
are: 


12 JETMIX ~ Analysis of Free and Confined Jet Mixing 

Pag SSFD -—~ Inviscid Analysis of Supersonic Turbulent Jet Including 
Shock Waves 

Die MERGE ~ Collation of the Aerodynamic Output of JETMIX and SSFD 

4, NOISE ~ Prediction of Aerodynamic Jet Noise 


A functional description of each of these programs is included in the 
following sections. Also included is a detailed flow chart of the data flow 
in the system and a description of the overlay structure on the CDC 6400/6600 
computers. 


1.2 JETMIX 


The JETMIX computer program is a general aerodynamic analysis tool for 
the prediction of both planar and axisymmetric compressible turbulent mixing 
regions. The flow field may consist of either a single free jet, a coannular/ 
coplanar free jet, or a confined jet which is constrained to mix with a co- 
annular flow inside a duct of varying cross-sectional area. In addition to 
determining the aerodynamic properties of the mixing region, the JETMIX pro- 
gram also traces the rate of diffusion of chemically inert species throughout 
the flow field. 


The transport of momentum, energy, and individual species by turbulence 
effects is included in the analysis by means of a semiempirical turbulence 
model which relates the turbulent transport terms in the time-averaged equa- 
tions to the amount of kinetic energy which is contained in the turbulent 
eddies. This turbulence kinetic energy (TKE) is calculated, in turn, from a 
conservation equation which keeps track of the net effect of the production 
of turbulence energy by the local shearing forces in the flow, as compared 
with the decrease of turbulence energy by dissipation into heat, by diffusion, 
and by the streamwise convection of the turbulence energy with the time- 
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averaged flow field. It is important to note that the use of the turbulence 
kinetic energy in the turbulence model causes the turbulent transport terms 
to depend not only on the local flow properties (and their gradients) but 
also upon the history of the flow. 


This turbulence kinetic energy approach for modeling the turbulent 
effects is to be contrasted with the pure mixing length theories. Like the 
TKE approach, mixing length theories (such as G.I. Taylor's vorticity trans- 
fer theory and Van Karman's similarity hypothesis) have also yielded viable 
results when properly correlated with experimental data. However, the exten- 
sion of these theories over a wide range of flow conditions using a single 
empirically determined mixing length has not proven feasible. This lack of 
generality is partially due to using local flow properties to determine the 
local viscous transport effects in a turbulent flow where advection and dif- 
fusion are important. There is no flow history incorporated in the conven- 
tional mixing length models; the prior development of the flow is ignored. 


Recently, statistical approaches for handling turbulence have been con- 
sidered by Townsend (Reference 148), Hinze (Reference 149), Rotta (Reference 
3), and several others. The analysis of homogeneous isotropic turbulence can 
be handled quite readily by the statistical techniques, since the turbulent 
flow properties have a random distribution that tends to be Gaussian. The 
statistical methods have not proved tractable for nonisotropic turbulence in 
flows with large velocity gradients. Unfortunately, free turbulent mixing in 
jet plumes is characterized by large velocity and temperature gradients with 
nonisotropic turbulence. Consequently, the present analytical method was 
developed to incorporate a phenomenological approach in which the results 
were stated in measurable engineering quantities. At the same time, concepts 
from the statistical methods were utilized to develop universal models for 
the viscous transport properties. This led to adopting the turbulent kinetic 
energy (e) as another flow variable in the analysis. The inclusion of the 
conservation of turbulence energy permits the turbulence history to be moni- 
tored along with the local generation and decay. 


The turbulent kinetic energy can be related to the local turbulence in- 
tensity by assuming local isotropy (Reference 150). The analysis thus relates 
the turbulent mixing to the mean velocity and the turbulence intensity. The 
turbulence intensity represents the standard deviation of the random turbu- 
lent velocity distribution. Thus, the statistical nature of the flow is 
retained by utilizing representative population parameters, but the analysis 
is tractable to numerical solution. 


General Electric analysis is based on the work of Spalding and Patankar 
(Reference 5) as well as Bradshaw (Reference 151). Prior to the development 
of this plume-mixing model, the turbulent kinetic energy model had already 
been proven to be a valid approach for viscous flow in boundary layers 
(Reference 152). <A similar model for free jets is also being used by Harsha 
(Reference 153). 
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The JETMIX analysis uses a numerical, finite difference technique to 
solve the partial differential form of the conventional boundary layer 
equations of motion. The use of the partial differential equations them- 
selves, plus the use of local turbulence properties for the determination 
of the Reynold's stresses, allows the JETMIX analysis to apply equally well 
to the case of a free jet mixing with a static ambient environment or with a 
moving external stream. For example, for the case of laminar flow (which 
can be calculated by "turning off" the turbulence calculations), the JETMIX 
program yields the "exact" solution to the constant pressure mixing problem 
regardless of the velocity of the external stream. Similarly, the only 
approximation in the turbulent mixing problem lies in the semiempirical han- 
dling of the turbulence, not in the mathematical analysis. Nevertheless, 
since the JETMIX program monitors the local turbulence properties in the 
mixing region, this turbulence model can be expected to apply over a rela- 
tively wide range of conditions. Specifically, one would expect that the 


local mechanisms for the production and dissipation of turbulence would be 
unchanged by the velocity, temperature, pressure, or composition of the 
external flow in which the jet is placed (although the actual production and 
dissipation would, in general, be quite sensitive to the jet environment). 
Comparison of JETMIX predictions with experimental data over a wide range of 
mixing conditions including changes in all of these parameters has verified 


this speculation. 


Finally, it should be noted that the JETMIX solution yiel¢* the local 
velocities, enthalpies, concentrations, and densities at ea: it » the 
flow field. Thus, once the JETMIX solution has been obtained, both the 
stream-wise variations and the cross-stream variations of all the sigmificant 


parameters are available. 


The JETMIX program is included in its full generality im the SSNOISL 
system, even though the acoustic model requires only a simple aerodynami 
flow field for a single free turbulent jet. The use of the turbulence inten- 
sity and the mean flow profiles for noise prediction is described in 
Section 2.4. 


1.3 SSFED 


The aerodynamic characteristics of a supersonic exhaust jet may resemble 
either an inviscid two-dimensional flow field or a viscous mixing region, 
depending on the back pressure to which the jet exhausts. In the case where 
the back pressure is substantially different from the static pressure at the 
nozzle exit, the characteristic features of the jet are similar to an invis- 
cid, two-dimensional flow field. This pressure mismatch generates an expan- 
sion fan or an oblique shock wave at the nozzle lip which adjusts the flow to 
the ambient pressure. However, as this initial disturbance propagates through 
the jet and reflects from the centerline, it causes the pressure to be 
overcorrected. This overcorrection represents the beginning of the familiar 
(nearly) periodic shock-cell structure. Quite naturally, the effects of 
friction are not altogether absent, but rather are restricted to a narrow 
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region on the outer edge of the jet. Because the viscous effects are confined 
to such a narrow region, the dominant characteristics of the flow field can 
be predicted by means of an inviscid two-dimensional analysis. 


By way of contrast, if the nozzle is just precisely matched to the ambi- 
ent pressure, no expansions or compressions take place at the nozzle exit, 
and the inviscid theory predicts a trivial, uniform, parallel flow field. 
However, experimental observations indicate that the flow field of this 
ideally expanded jet is dominated by viscous mixing in much the same way as 
are subsonic jets. Such a flow field can be predicted by means of a viscous, 
boundary layer analysis which assumes that the pressure throughout the entire 
plume is constant and is impressed by the external environment. 


Despite the fact that each of the above classical approaches has applica- 
tion by itself, there are many problems which require the simultaneous inclu- 
sion of both two-dimensional and viscous mixing effects. For example, super- 
sonic jets are seldom uniform, parallel, ideally expanded jets. Further, 
even though the dominant characteristics of the flow field of the nonideally 
expanded jet may be calculable by means of an inviscid analysis, there may be 
an interest in the mixing region itself. This latter situation is particu- 
larly true for such contemporary uses of jet flow field calculation techniques 
as prediction of the acoustic radiation, the infrared signature, or the 
combustion emissions of the jet. 


A technique has been developed for calculating the flow field in a super- 
sonic jet which includes both the two-dimensional effects which are character- 
istic of supersonic flow fields as well as the viscous mixing losses which are 
caused by turbulent stresses in the highly sheared regions of the jet. This 
technique divides the flow into an "inner" region in which the flow is super- 
sonic and nearly inviscid, and an "outer" region where the viscous forces 
predominate. Coupling between the two regions is provided by including the 
viscous losses as known "right-hand-side" terms in the solution of the inner 
equations. Provision for handling discrete shock waves is included in the 
equations for the inner region, and an approximate technique which allows the 
shock to reflect at the centerline of an axisymmetric jet is also included. 
The viscous analysis of the “outer"™ region is referred to as the JETMIX com- 
puter program (Section 1.2). The analysis of the supersonic, nearly inviscid 
"inner" region is referred to as the Supersonic Finite Difference (SSFD) com- 
puter program. Other approaches to this problem have been considered in 
References 154 and 155, although their analyses were restricted to totally 
supersonic flow fields. 


Since the flow in the inner region is supersonic, the (hyperbolic) 
governing equations could be solved by the classical method of characteristics 
procedure. However, an explicit finite difference algorithm is used since 
it is somewhat simpler and is more easily adaptable to matching between the 
"inner" and "outer" solutions. Section 2.1 points out that the (parabolic) 
boundary layer equations characterizing the outer region are solved by a 
similar finite difference technique. Although the field points are calcu- 
lated by a finite difference technique, the enforcement of boundary conditions 
and calculation of shock propagation are accomplished with method of charac- 
teristics procedures. 
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The equations for the inner region require that the "“right-hand-side" 
terms, reflecting variations in entropy and stagnation enthalpy due to the 
action of turbulent stresses, must be specified before a solution is calcu- 
lated. Thus, the JETMIX analysis must first be applied to the entire jet in 
order to allow approximate calculation of these terms. Then, the SSFD 
analysis if used to recalculate the flow field in the inner region. 


1.4 MERGE 


The MERGE computer program is used to combine the output of JETMIX and 
SSFD prior to its use in the NOISE program. Specifically, the velocity and 
turbulence energy profiles computed in the SSFD program for the supersonic 
portion of the jet plume override those computed by JETMIX. The JETMIX 
profiles in the subsonic portion of the plume are retained. 


1.5 NOISE 


In the previous sections, program descriptions were given for the aero- 
dynamic flow field predictive schemes for subsonic and supersonic (shock-free 
and shocked) exhaust jets. One of the key aspects of these aerodynamic 
programs, from a noise point of view, is that they are turbulent mixing 
analyses of which a primary output is the turbulent kinetic energy. With 
the output from such programs, it was quite feasible to utilize acoustic 
models whose source terms were functions of the aerodynamic input, thus 
the name aeroacoustic turbulent mixing. General Electric has devoted time 
to examining the advantages and disadvantages of such models. References 
1, 10, 77, and 156 discuss many of the details of this work. Appendix 6 
gives a detailed account of the models available in this document. 


The basic turbulent mixing (or velocity fluctuation) noise theory 
which can best serve as an example to illustrate the relationships between 
the acoustic far-field and the detailed aerodynamic properties of an exhaust 
jet is the Lighthill/Ffowcs-Williams convected quadrupole theory. This 
theory is founded on the hypothesis that individual and uncorrelated volumes 
emit acoustic energy given by the relationship: 








pre Ve ry 7? a4 4 wk \2 ~5/2 
ae * a Free (1 = M, cos 0)” + Pn, 


where R is the distance between the source term of turbulence and the point 

of observation; Ve, the uncorrelated eddy volume; w, the radiation frequency 
of fluctuation in a reference system moving at an eddy convection speed 

Ve; TZ, the mean square value of the quadrupole strength; 6, the angle 

between the direction of sound emission and the jet axis; Mc the ratio of 

eddy correction speed to the sound speed of the ambient gas; and, &%, the 

scale of turbulence. With the assumptions Ve = 23, T2 = o2u4 and a frequency- 
eddy-shear assumption due to P.O.A.L. Davies that w%~l.lu', our acoustic 
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equation transforms into a quite tractable form directly linking the local 
aerodynamic properties with the acoustic far-field (or near-field as will 
be shown in Appendix 6): 





2 4-4 . -5/2 
—2 : eu u = 9)2 + l.lu 2 
P Trr2 past [ « M. cos 8) ( a0 ) 


To further translate this simple expression to perform detailed acoustic 
predictions, the flowfield is divided into small-volume elements in the form 
of circular ring elements of incremental volume V = 2nrArAdx (see Figure 246), 
based on the compactness assumption that each volume element is considered 
to be a sound generator which emits acoustic energy at a specified frequency 
determined by the P.O.A.L. Davies frequency-eddy-shear assumption (or some 
similar assumptions). For the whole jet then, the mean square sound pres- 
sures from all circular ring regions can be combined computationally to give 
overall mean square sound pressure, sound pressure spectra, overall sound 
power spectra, or overall power level. 


The NOISE program contained in this document includes, in addition to 
the model described above, several other philosophically similar turbulent 
mixing aeroacoustic models. They are Ribners, a classical Lilley model, 
and a model by Pao. 


An item which is important to the predictive aspects of aerodynamic 
noise, as well as for understanding jet noise emission, is how to account 
for the influence of the physical flowfield on the noise source itself. The 
work of Mani, described in detail in Volume II of this final report, shows 
that the fluid shrouding of the noise source goes a long way toward accounting 
for the convective/refractive coupling of the acoustic radiation. Appendix 
6 will discuss a method by which this technique can be linked with the above- 
cited turbulent mixing models. 


1.6 SSNOISE CALCULATION STEPS AND FLOW CHART 


The processing flow chart depicting the flow of data between the various 
programs in the SSNOISE system is shown in Figure 247. The core program in 
the system is JETMIX, which provides aerodynamic data to be used in SSFD, 
MERGE, or NOISE. The files shown in Figure 247 may be either disc or tape 
and contain the following data: 


File 1 - JETMIX Restart file (normally tape) 
Contains aerodynamic data from a partial execution of JETMIX 
(File 2). 


File 2 - JETMIX Output file 
Contains aerodynamic data from a JETMIX execution. Used as an 
input file to SSFD, MERGE, or NOISE. 


¢ 
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File 1 - JETMIX Restart 

anieee 2 - JETMIX Output 
3 - SSFD Output 
4 - MERGE Output 


- ieee 


oe 


NOISE 


Figure 247. SSNOISE Calculation Flow Chart. 
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File 3 - SSFD Output file 
Contains aerodynamic data from a SSFD execution. Used as an 
input file to MERGE. 


File 4 - MERGE Output file 
Contains collated data from JETMIX and SSFD. Used as an input 
file to NOISE. 


Each program in the system may be either run alone or in sequence with 
other programs; viz, a JETMIX file that has been saved on tape and may be 
used to execute either SSFD or NOISE. 


1.7 SSNOISE OVERLAY DESCRIPTION 


The SSNOISE system has been structured for execution on the CDC €6400/ 
6600 machines under the SCOPE 3.3 operating system. The basic OVERLAY 
features of SCOPE 3.3 have been utilized to reduce the memory requirements 
to a tractable level (< 110K octal locations). Shown in Figure 248 is the 
overlay structure, including all subroutines. As indicated in this figure, 
the program consists of a main overlay, four primary overlays, and four 
subordinate secondary overlays. A brief description of the processing in 
each overlay is given in the following section. 


1.7.1 Overlay (0,0) - Entry MAIN 


The main overlay (0,0) contains the main program MAIN, as well as 
general purpose routines which are called by subprograms in the subsequent 
primary and secondary overlays. The program MAIN provides control for execu- 
tion of the four programs (JETMIX, SSFD, MERGE, NOISE) by loading the appro- 
priate overlays in sequence. 


1.7.2 Overlay (1,0) - Entry JETMIX 


Overlay (1,0) is the primary overlay for loading of the JETMIX input and 
calculation overlays (Program JETMIX). Subroutines concurrently used by 
secondary overlays also reside in (1,0). 


1.7.3 Overla 1,1) - Entry JETMIX 1 


Overlay (1,1) consists of the subroutines to read card and/or tape input 
into the JETMIX program. The latter situation may occur if a tape has been 
saved from a previous JETMIX execution and the user desires to restart the 
problem and run further downstream. The main input routine is JETINP which 
calls JTINIT for initialization, JIFILE for tape input, and JTOUT1 for print- 
ing of the input and initial profiles generated in JETINP. 
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1.7.4 Overlay (1,2) - Entry JETMIX 2 


The bulk of the numerical calculations of the mixing flow field is 
carried out in Overlay (1,2). The primary entry, JETMIX 2, initially calls 
the control routine JTCTRL which, in turn, calls the main calculation 
routine JTSTEP. At each output station, subroutine JETPRP and JTOUTS are 
called to calculate jet centerline parameters and print (if specified) cal- 
culated profile output. At this point, profiles are saved temporarily on 
File 3 (JTFILE). At the completion of the numerical calculations, JETMIX 2 
calls JTOUTS to print a summary output page. If an output file is requested, 
the JETMIX input and centerline properties are written on File 2. The data 
saved on File 3 are then appended to File 2 before returning to the main 
control routine in Overlay (0,0). 


1.7.5 Overlay (2,0) - Entry SSFD 


Overlay (2,0) is the primary overlay for loading of the SSFD input and 
calculation overlays. Subroutines concurrently used by secondary overlays 
also reside in (2,0). 


1.7.6 Overlay (2,1) - Entry SSFDIN 


Overlay (2,1) consists of the routines to initialize SSFD data regions, 
read card input, and read JETMIX flow field data from the disc (or tape) 
input File 2. Initially, INIT is called to read the card input and the 
centerline output record from JETMIX. INIT also initializes the principal 
SSFD data regions. Subroutine READT entry READT1 is then called to initialize 
the data regions which contain the JETMIX profile data. 


1.7.7 Overlay (2,2) - Entry SSFDCA 


The supersonic flow field calculation is carried out in Overlay (2,2). 
The main calculation routine SSFDM is called to carry out the stepwise 
solution of the supersonic inviscid flow equations. During the process of 
solution, imbedded shock waves are detected. Shocks emanating from a com- 
pression corner, as well as imbedded and reflected shocks, are carried as the 
solution proceeds downstream. At specified output stations, subroutine 
PRINT is entered to tabulate calculated output and store requisite output 
data on File 3 (if specified). 


1.7.8 Overlay (3,0) - Entry MERGE 


The MERGE overlay reads data from both the JETMIX output File and the 
SSFD output File 3. The profile data are then collated and written as File 
4 for subsequent input to the NOISE program. 
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1.7.9 Overlay (4,0) - Entry MAINNS 





fhe final overlay in the SSNOISE system contains the routines for calcu- 
lation of the aerodynamically generated jet noise. 
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2.0 PROGRAM INPUT 


2.1 GENERAL DESCRIPTION 


The following sections are concerned with the input to the four programs 
comprising the SSNOISE system. Each program may be either run alone or in 
sequence. The standard SCOPE file INPUT is used for card input. For each 
program, selected input will reside on a data file (TAPE1, TAPE2, TAPE3, 
TAPE4) which may be either disc or magnetic tape. The input sheets for the 
programs JETMIX, SSFD, MERGE, and NOISE are given in Appendix 9. An initial 
prefix input set, consisting of identification information, is read once in a 
given run using fixed-field format (6Al10). The first three cards of the 


input deck consist of the name and address of the user and the problem identi- 
fication. 


Card No. Cols. 
1 2-61 User name (1-60 alphanumeric characters) 
2 2-61 User address or location (1-60 alphanumeric 
characters) 
3 2-61 Problem identification (1-60 alphanumeric 
characters) 


Blank cards may be substituted for input quantities not required. 
The input parameters for each program are given in the following sections. 


Included in these descriptions are the input items appearing on the input 
sheets as well as input items not normally required. 


2.2 JETMIX INPUT 


The first card of the input set is a header card consisting of the program 
name JETMIX starting in Column 2, and aT or an F in both Columns 12 and 14, 


Card Column Description 
2 JETMIX - Denotes program name 
12 Input file (tape) ? (T or F) 
14 Output file (dise or tape) ? (T or F) 


The header card is followed by the NAMELIST SA and the associated JETMIX 
input data. The NAMELIST input is terminated with a $ in Column 2. 


486 











2.2.1 Problem Specification 


The input quantities MIX, AXI, and TWO define the type of problem. The 
allowable combinations are: 


MIX = F AXI = ad 
F 
sg 

Ji = 
TWO F 

MIX = T AXI = Ed 

F 
TWO = F 


If these quantities are not input, the case will be taken as a free, 
axisymmetric, single jet. This is normally the predominant type of JETMIX 
run within the SSNOISE system. 


Preset 
Parameter Description Value 
MIX Problem type F - Free jet mixing 14 
T - Confined jet mixing 
AXI Flow field type T - Axisymmetric T 
F - Plane (2D) 
TWO Jet configuration F - Single mixing region F 


tae 


- Coannular/coplanar 
mixing region 


Beene Description of Primary and Secondary Jets 


The jet streams must be defined in terms of either Mach number or stag- 
nation pressure. 


Optional inputs are turbulence intensity, static temperature, and veloc- 
ity. If turbulence intensities are not specified, the jet(s) will be assumed 
laminar. Either static temperature or velocity may be specified. If these 
quantities are not input, the velocity corresponding to SLS ambient conditions 
will be computed. 
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Parameter 


DIAJ 


MJET 
PTJET 
TIJET 
TJET 
VJET 


DIAO 


MJETO 
PTJETO 
TIJETO 
TJETO 


VJETO 


Description 


Diameter (AXI=T) or 2x half-height (AXI=F) 
of primary jet, in. 


Primary jet Mach number 

Primary jet stagnation pressure, psia 
Primary jet turbulence intensity 
Primary jet static temperature, ° R 
Primary jet velocity, fps 


Diameter (AXI=T) or 2x half-height 
(AXI=F) of secondary jet, in. 


Secondary jet 
Secondary jet 
Secondary jet 
Secondary jet 


Secondary jet 


Mach number 

stagnation pressure, psia 
turbulence intensity 
static temperature, ° R 


velocity, fps 


2.2.3 External Boundary Conditions 


For free-mixing problems, the external boundary conditions are constant. 
For confined~mixing problems, the external boundary condition input denotes 
quantities at the discharge plane of the jet. 


temperature, and either Mach number or velocity. 


Parameter 


PE 


TE 


TIE 


ME 


VE 





Specify static pressure, static 


Preset 


Value 


bits 


bits 


bits 
bits 
0 


518.688 . 


Preset 
Description Value 
Static pressure, psia 14.69594 
External stream static temperature, ° R 518.688 
External stream turbulence intensity 0 


External stream Mach number --- 


External stream velocity, fps --- 
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2.2.4 Fluid Properties 


The fluid viscosity is computed as a function of temperature using the 
Sutherland relationship: 


a, 


u = MUREF x oe 


* CIREF+SC) 
(T +SC) 


If no input is given, the fluid is assumed to be air. 


Preset 
Parameter Description Value 
RG Gas constant, ft lbf/lbm ° R 53.34 (air) 
PR Prandtl number 0.72 (air) 
PRT Turbulent Prandtl number 1.0 


Sc Sutherland constant for viscosity <a 
calculation, ° R 


MUREF Reference viscosity @ TREF, lbm/ft sec --- 


TREF Reference temperature, ° R --- 


2.2.5 Step-Size Controls/Restart 


The input parameters CXPC and CXTP control the streamwise step size in 
the potential core and transition/similar regions of the jet. In the potential 
core zone, the step size is taken as a fraction of the width of the primary 
mixing zone: 


AX = CXPC x b 
pe 


Following disappearance of the potential core, the step size is taken as 
a fraction of the jet radius or half-height: 


= CXTP x Y 
AX,, 7 CXIP x Yj 


As the stepwise solution proceeds downstream, streamlines are added at the 
outer edge of the jet. Specification of CXPC and CXTP is equivalent to artifi- 
cally specifying the rate of entrainment of ambient fluid into the jet. In 
certain cases, the step size may be too large (entrainment rate too small), 
and the solution for the effective edge of the jet may experience problems. 


489 








These problems are usually manifested by a square root cf a negative 
number in subroutine JTEDGE, and may be rectified by decreasing the value of 
CXPC and/or CXTP. The preset values CXPC = CXTP = 0.02 have been adequate 
for most cases run to date. 


A problem may be restarted from tape at a given X or XD station using 
the input RESTRI. The value of RESTRT must appear in the X or XD table, and 
the profiles must be stored on tape at the restart station. For continuation 
of confined mixing problems using the free-mixing option (MIX=F), input the 
normalized restart station. 


Preset 
Parameter Description Value 
CXPC Step size control - potential core region. 0.02 
Fractional % of mixing zone width 
CXTP Step size control - transition/similar 0.02 


region. Fractional % of jet radius or 
half-height 


RESTRT X or XD station for restart of problem --- 


2.2.6 Turbulence Scale Calculations 


The characteristic length scale of the jet turbulence is assumed indepen- 
dent of the transverse coordinate and is expressed in terms of the geometric 
parameters of the jet and the jet Mach number using the following semi- 
empirical relations: 


Single Jet 
1) Region 1 (Potential Core Present) 
. -1 
Mea it eg eee (i + Cre My) 


2) Region 3 (Similar Profiles) 


he oe * 


3) Region 2 (Transition Region) 


The turbulence length scale in the transition region is less well defined 
than those in the potential core and similar regions, in that experimental 
data are sparse or nonexistent. The input parameter LTERP may be used to 


select either a linear or an exponential variation of scale in the transition 
region: 
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(Linear): 


-1 x x 
. aah e = .3 
Lig = (¢,, Cte, My) (2 x) eg (x. Ys 
(Exponential): 
-lyx 
= —_ y 
Lee Chg (C,, M)) () =p & (Chey "D] 


Pape ae 4 Coannular/Coplanar Jet 


The turbulence length scale for a coannular/coplanar jet is based on an 
empirical geometric model. A schematic diagram of the dual jet flow field, 
with pertinent symbols, is shown below: 
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The model is described as follows: 
Ky &x Cn 


The region Xj ¢ X _ upstream of the point where the secondary core dis- 
appears connect of ‘No independent jets which mix in somewhat the same manner 
as the previously described single jet. The turbulence length scale is de- 
fined in terms of the scale in the two mixing regions as follows: 


aid 
ul 


il 


bg 


-1 
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L 
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— Ss iit 
Oh. t SS oa te 
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eu = 265 K Y 4 2 


L#=L 
s 


- 9Y 
> 


The factor 0.9 allows marginal interaction of the two mixing zones, in that 
the scale in the secondary core region varies linearly between the two 
extreme values. 


Xo 4 X a X 


When the outer edge of the primary jet has intersected the inner edge of the 

secondary jet, the secondary potential core disappears. The co-ordinates of 

the boundaries of the combined mixing zone are determined by fitting a linear 
curve between the jet corner co-ordinates and the merge point; viz, 
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(outer boundary) 


os) 
AB Y=Y,+(=>-—- 
2 Xo xy (Xx Xy) 


(inner boundary) 


Yad 
tn! = - 
A'B t= 4, + xX, (X - X)) 


For the situation shown in the sketch, the scale may be defined as: 
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special situations occur as follows: 
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If ¥ DY,» set Y_ = z. 
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In the region downstream of the point where the primary core has disappeared, 
the combined mixing cone scale is redefined to: 


ms 
we +c 
Ly tn°p“ oP? 


The numerical values assigned to the constants for the single- and dual-jet 
geometries are; 


Preset 
Parameter Description Value 
LTERP Transition region scale selection T 
T - Linear variation 
F - Exponential variation 
cTl 0.23 
CT2 0.38 
cT3 0.23 
CT4 Constants for definition of turbulence 0.05 
CTS scale of single jet 0.38 
CT6 1.4 
CT7 0.43 
CT8 0.1875 
CTP Constants for definition of turbulence 0.175 
CTs scale of coannular/coplanar jet 0.23 
CTM 0.23 
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2.2.8 Transverse Mesh Control 


A semiuniform mesh is utilized in the potential core region. The number 
of streamlines in the initial discharge plane of the jet may be altered using 
the inputs NJ and NJO (NJ is the number of streamlines in the primary jet), 
whereas the difference between NJ and NJO is the number of streamlines in the 
secondary jet (if present). In the potential core zone, streamlines are added 
at a constant Ay until a maximum (NM) is reached. At this point, the number 
of streamlines is reduced and the mesh refined. The semiuniform streamline 
distribution is maintained until the potential core disappears. Downstream of 
this point, the jet grows rapidly, and it becomes advantageous to redefine the 
mesh. The streamlines are redistributed such that the ratio of Ay's for any 
two adjacent intervals is a constant. The distance of the i-th streamline is: 


where, K = mesh constant 


al = initial Ay 


¥;/¥, = 1@ 4 = NMSH 


Preset 

Parameter Description Value 
NJ No. of streamlines in primary jet 30 
NJO Streamline number of secondary jet edge 50 
NM Maximum number of streamlines before mesh 80 

redistribution occurs 
NMSH 71 
DY1 Mesh parameters (see above) O01 
CK 1.06064475 


fees? Species Diffusion Input 


The JETMIX program contains the option to consider the diffusion of up 
to six chemically inert constituents. The input for a case of ghis type 
given on JETMIX input sheet la, and includes variables to define the mole 
concentration of the jet streams, boundary conditions, effective Schmidt 
numbers, and coefficients for the molar heat capacity of each constituent. 
The NC, CNAME input variables are provided to designate names of the species. 
Note that this option may not be used if NAMELIST does not permit hollerith 
input. The molar heat capacities of the individual constituents are computed 
as a quadratic function of local temperature T; viz, Cy =a +bT + cT2. 
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Preset 
Parameter Description Value 
DIFF Species Diffusion F - No F 
T - Yes 
NC Number of constituents 3 
CNAME Name of constituents AIR, C02, H20 
ALJ Primary jet stream species mole 92, .04, .04 
fractions, moles i/mole mixture 
ALJO Secondary jet stream species mole 96, «O02, «02 
fractions, moles i/mole mixture 
ALE External (boundary) species mole -99934, .00033, 
fractions, moles i/mole mixture .00033 
SCM Effective Schmidt number for individual ah 
species 
CPC Coefficients in polynomial representation --- 
of molar heat capacities (see input sheet 
JETMIX/1a) 


2.2.10 Station Input 


The following parameters are termed "station input" and are used to de- 
fine the print/data file stations in the free-jet case and boundary coordinates 
in the confined-mixing case. In the latter situation, the streamwise coordi- 
nate also serves as identification for printing. Station data may be input 
in column format using the B array or in "free form" using the symbolic names 
associated with the columns of the B block. When no station input is supplied, 
the JETMIX program uses a set of input coordinates which has been optimized 
for use in acoustic calculations. 


Parameter Description 
B Input block for station data. See JETMIX input 


sheet 2 and associated notes on station data. 

The preset symbolic names assigned to each column 
of the B block are: 

Free mixing X, XPRN 

Confined mixing XD, RD, YCB, XPRN 

Data set to bits* will be interpolated relative to 
X, or the last value in the table will be auto- 
matically extended down the column. 

Up to 100 stations may be input. 

* bits = 1 x 10° (junk word) 
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xX Dimensionless streamwise coordinate (free mixing), x/dj 


XD Streamwise coordinate, in. (Confined mixing) 
RD Outer boundary coordinate, in. (Confined mixing) 
YCB Inner boundary coordinate, in. (Confined mixing) 
XPRN Profile print/file indicator: 
0 - Profile not printed or saved on file 2 
1 - Profile printed and saved on file 2 
-1 - Profile saved on file 2 but not printed 
XPRN(1)= 2 - All profiles printed and saved on file 2 
XPRN(1)=-2 - All profiles saved on file 2 but not printed. 


The various types of input are best illustrated by use of an example: 





Confined mixing in an annular duct - 5 stations (0, 2, 4, 6, 8 inches) 


with radii (1, 2, 3, 4, 5 inches). Centerbody radius - 0.1 inch. 


Print all stations. 


Sheet JETMIX-2 


Ww, XD RD YCB XPRN 

B(1)= 0., ie is Bis 
Pe. 2.5 i‘? Ns 
4., Dex i; Les 
®. or dy hag 
8 Ses 1 1 


- 


Free Form 


YW 


ot) Aine: Svar Sey Sees ee 

SU A13-@ Bis Zea Sek ee 
YCB (1) = 0.1, 

XPRN (1) = 2, 


This form of input is useful for modifying input data reclaimed from an 


input tape 1. Suppose it is desired to add 5 or more stations with duct and 
plug radii equal to those at the 5th station: 


7 


XD (6) = 10, 12, 14, 16, 18, 
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The balance of the RD and YCB arrays will be filled with the values of 5. 
and 0.1, respectively. As in the case of tabular input, missing input will be 
linearly interpolated or appended as required. 


Station data input via the B block will override corresponding free-form 
input. Inadvertent destruction of the free-form input may be avoided by 
selectively designating positions in the B array. 


2.3  SSFD INPUT 


The first card of the input set is a header card consisting of the pro- 
gram name SSFD starting in Column 2, and a T or an F in both columns 12 and 14. 


Card Column Description 
2 SSFD - Denotes program name 
14 Input file (tape) ? (T or F) 
16 Output file (disc or tape) ? (T or F) 


The header card is followed by the NAMELIST, $INPUT, and the associated 
SSFD input data. The NAMELIST input is terminated with a $ in column 2, 


2.3.1 Problem Description 


The input quantities AXISYM, XMACH, and GAMMA define the type of problem. 
Note that XMACH is the actual initial Mach number, not the ideally expanded 
Mach number, and generally will be different from the input quantity MJET in 
JETMIX. Also note that the specific heat ratio must be input twice (i.e., 
GAMMA (1) = 1.4, 1.4), and that the two values must be identical for normal 
program operation. 


Preset 
Parameter Description Value 
AXISYM T - Axisymmetric flow field <= 
F - Plane (2-D) flow field 
XMACH Initial Mach number 1.05 
GAMMA (1) Specific heat ratio bees. Lat 
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Redee Program Controls 


The input quantities XL, STABIL, and IPRINT control the streamwise dis- 
tance over which the calculation proceeds, the streamwise step size used in 
the finite difference solution, and the program output, respectively. XL is 
preset so that SSFD will terminate upon reaching the end of the potential core 
region (as determined by JETMIX). The maximum allowable streamwise step size 
at any axial station is set by the requirement that characteristics from 
adjoining (cross-stream) points in the finite difference mesh must not inter- 
sect between stations (CFL condition). The step size which is used in SSFD is 
the product of this maximum step size multiplied by the stability parameter 
STABIL. If difficulties are encountered in obtaining an SSFD solution, it 
May be necessary to decrease the value of STABIL. 


Preset 
Parameter Description Value 
XL Final value of x/d4 (see above) 
STABLL Stability parameter for step-size control <5 2 
IPRINT 1 - Print profiles and shock pattern 1 


0 - No print 


2.3.3 Total-Pressure Input Stations 


SSFD uses total-pressure data from the JETMIX solution at the stations 
XPT. These are preset to: 


SWE sth ice Oo da aks woe eearais i ty Ry Be Sade Oa Be. Sy BR. 1.35 Gy 32, 
13, 15, 20. 


Preset 
Parameter Description Value 
NPT Number of stations for total-pressure 20 
input 
XPT Stations at which total-pressure data are (see above) 


taken from JETMIX solution, x/dj ~ 


Optional Input Parameters 
The following quantities were originally included as input variables 
either to allow SSFD to be run without direct coupling to JETMIX or for con- 


trol of diagnostic printout which was used in debugging SSFD. They have been 
retained to preserve full program capabilities, but are no longer required. 
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Parameter 


NJ 


X 


SSTRM 


NJJ 


RSTART 


TANTH 


2M 


PRESS 


THETA 


YIN 


PE 


TT 


XLOW 


YLOW 


XUP 


PUP 


PLOW 


PTOT 


PSLPT 


YBAR 


LPUNCH 


XMDISC 


XSAVE 





Definition 
No longer used 
Initial value of x/¥j 


Is there a slipstream at interface of inner/outer 
streams? (Logical) 


Number of initial grid points 


Is this a restart of a previous run? (Logical) 


Tangent (v/u) of flow angle at initial grid points 
Mach number at initial grid points 

Static pressure (p/ptj) at initial grid points 
Flow angle (tan v/u) at initial grid points 
Radial location (y/rj) of initial grid rene 
Total pressure (pt/Pt4) at initial grid points 


Total temperature (Ty/Ty;) of streams at initial 
station 


x/r4 coordinates of stream lower boundaries 
i 

y/rj coordinates of stream lower boundaries 

x/rj coordinates of stream upper boundaries 

y/rj coordinates of stream upper boundaries 

Static pressure (p/prj) on stream upper boundaries 
Static pressure (p/Pe4) on stream lower boundaries 
Total pressure (pr/prj) in JETMIX flow field 


Streamline coordinates (\)) for total-pressure input 


y/rj coordinates at initial station (in place of 
equal spacing). 


Are cards to be punched for restart? (Logical) 
x/rj coordinate of Mach disc 


x/Ty coordinate of profile to be saved for restart 
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Parameter Definition —s 
IDISC Control variable for Mach disc/restart 
MDISCC Is there to be a Mach disc? (Logical) 
BARPRT Print control (Logical) 
IPRTC Print control 
XBDY Print control (x/r4) 
XPR Print control (x/r4) 
SHKPRT Print control (Logical) 
XTKESH Print control (x/rj) 
XTKESF Print control (x/rj) 
XRESET Print control (x/rj) 
XENTRO Print control (x/rj) 
; XTKEPR Print control (x/rj) 


The subscript 'j'' has been used to denote nozzle exit-plane properties. 


2.4 MERGE 


No card input is required for the MERGE program with the exception of 
the following header card: 


Card Column * Description 
2 MERGE - Denotes program name 
12 T - Denotes input files (2 and 3) 
14 T - Denotes output file (4) 


2.5 NOISE INPUT 
The first card of the input set is a header card consisting of the 


program name NOISE starting in Column 2, and aT or an F in both columns 12 
and 14. 
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Card Column Description 
2 NOISE - Denotes program name 
14 Input file (tape)? (T or F) 
16 Output file (disc or tape)? (T or F) 


The header card is followed by the NAMELIST $A on the associated NOISE 
input data. The NAMELIST input is terminated with a $ in Column 2. 


2.5.1 General Input 


The input quantity MFILE denotes the input file code for the aerodynamic 
data: 


Nominal 
Parameter Description Value 
MFILE An input file code for either Z 
JETMIX (set to 2) or MERGE 
(set to 4) 


In addition to the aerodynamic data file selection, a series of 
quantities is necessary as input before selection of the acoustic models. 
These input parameters are defined as follows: 





Nominal 
Parameter Description Value 
SCALT Average Source-Receiver Doppler oS 
Shift 
SCALJ Jet Scale Factor (Model size to i. | 
full size) 
PREFN Reference Acoustic Pressure fo -0002 
Sound Pressure Level (dynes/cm’) 
BAND3 Selector for 1/3-Octave Band calcu- F 
lation (T selects 1/3-Octave Band; 
F selects Octave Band) 
MC Selection of Fixed or Variable Con- 0 
vection Mach Number (0 selects a | 
fixed convection Mach Number; l | 
selects a variable convection Mach 
Number) 
CVMACH The convection Mach No, Constant «Oo 
BETAIN Will BETA be input? (T or F) F 
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BETA An Acoustic Intensity Proportionality 00425 
Constant - .00425 for a cold jet, 
.002125 for a hot jet 


JETTEM Indicator for a Hot or Cold Jet 0 
(O - cold jet, 1 - hot jet) 


QCONV T or F Selector for the Convection F 
Singularity Function (F, q = 
La fag: Ty ¢ = @ w/a) 


2.5.2 Acoustic Model Selection 


The NOISE program allows the operator to select a number of far-field or 
near-field acoustic models. The far-field acoustic models are of the Lighthill 
(LIGHTH), Ribner (RIBNER), or Pao (PAO) forms. Appendix 8 discusses the 
analysis incorporated in each model. 


Nominal 
Parameter Description Value 
LIGHTH Lighthill selection (0, self-noise 0 
alone; 1, self-noise + shear-noise) 
' LILLEY T or F Selection of Classical Lilley F 
Model 
RIBNER T or F Selection of Classical Ribner F 
Model 
CRIB Acoustic Intensity Proportionality Pees Vi 
Constant in Ribner's Model (0, self- 
noise only) 
SE Selection for Shear Noise in Ribner E 
Model (0, shear noise only) 
PAG T or F Selection of Classical Pao F 
Model 
PSPEC Selection of Pao Pressure Spectrum F 
Calculation (T or F) 
MU Selection of Type of Pao Model 0) 


(0, self- and shear noise, l, 
self-noise alone, 2, shear 
noise alone) 


As for the far-field acoustic models, there are a number of near-field 
acoustic models the user may select. Their descriptions are contained in 
Appendix 8. 
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NEARFD = 


22d 


Isotropic turbulence model 


Lateral quadrupole model 


Longitudinal quadrupole model 


Microphone Selection 


Combination model using lateral quadrupole in transition 


Combination model using longitudial quadrupole model 
in transition region 


In order for the user to have acoustic prediction printed, the number 
of angle locations (NA) and the actual polar angles (referenced to the jet 
Additionally, an arc or sideline prediction can 


axis) must be specified. 


be made, 


Parameter 


NA 


ANGJ 


ARC 


SLINE 


ARCL 


2.5.4 


Description 


Number of input angles (1 through 
20) 


Angle (in degrees) input (a maxi- 
mum of 20 angles may be specified) 


F - Sideline configuration 
T - Arc configuration 


Sideline distance in feet 


Arc distance in feet 


Output Control Cards 


In addition to the normal program output of OASPL, SPL, 
detailed acoustic profiles can be computed and pointed out. 
acoustic profiles are controlled by the parameter ACSPAN and ACOUSP. 


Parameter 


ACS PAN 


ACOUSP 


Description 


(T cr F) Acoustic radial profile 
computation at a radial location 
for a given angle (specify T for 
each angle) 


(T or F) Acoustic profile indicator 
for axial locations specified from 
JETMIX (Specify T for each X 
station) 
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Nominal 
Value 


Must input 


Must input 


PWL, etc., 
These detailed 


Nominal 
Value _ 


F 


3.0 PROGRAM OUTPUT 


3.1 GENERAL DESCRIPTION 


The output from the SSNOISE system may be logically divided into the 
following two sections: 


1) Card input and preliminary printout 


2) Specific output generated by each program in the system 


The initial section of output consists of a card image print of the problem 
input and a designation of the tape (disc) input/output file selections; 
viz, TAPIN = } and TAPOT = 1. Upon completion of the card image print, 
the file TAPE5 is rewound to its original status. The output from the 
programs follows the section of preliminary printout and is described in 
the following sections: 


3.2 JETMIX PROGRAM OUTPUT 


The output from the JETMIX program consists principally of the dimen- 
sional and dimensionless profiles at designated calculation stations and the 
properties along the jet axis of symmetry. Profile printout will always 
occur at the stations inserted by the program. These inserted stations are: 


1) Potential core disappearance 

2) Supersonic core disappearance 

3) Merge station of coannular/coplanar jet 
The above profile printout is preceded by the defined and calculated reference 
conditions and the initial profiles (U, E, 6, a4) at the discharge plane 


of the jet. The calculated output variables in their literal order of 
appearance in the printout are as follows: 
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Print Heading 
y 
PSI 


UD 


LE 


TTD 


PTD 





MACH 
V 
¥ 3 
TOT 
PTOT 


(constituent) 
(DIFF=T) 





Dimensionless and Dimensional Profiles 


Description 


Dimensionless normal coordinate Y = 2y/dj 
Stream function ¥, tha/te* 

Dimensionless velocity, U = u/u; 
Dimensionless temperature, 6 = T/Tj 
Turbulence intensity, u'/u; 


Dimensionless temperature coefficient, 
(Ty pe Tex) / (Ty; i Tex) 


Dimensionless pressure coefficient 
(Py i Pex) / (Pr, - Pont 


Mach number 

Velocity (u), fps 

Static temperature (T), ° R 
Total temperature (Ty), ° R 
Total pressure (Py), psia 


Species mole fractions; the headings of the 
columns refer to the CNAME input parameters. 
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Jet Dimensionless Station Data (Summary) 


Point Heading Description 
X Dimensionless axial coordinate, X = x/dj 
B Dimensionless width of mixing zone 


Potential core - (Ye - Y, Pe 
Transition/similar - (2v3 j 


YJ Dimensionless edge of jet Y, = 2ye/d, 
UC Dimensionless velocity along y = 0 
TC Dimensionless temperature along y = 0 
FLC Turbulence intensity along y = 0 
PTC Dimensionless pressure coefficient along ~ = 0 
TIC Dimensionless temperature coefficient along y = 0 
YSONIC Dimensionless location of sonic line (if present) 
WJ Entrained flow ratio, (mass flow/mass flow at jet 


discharge plane) 


Continued Mixer Station Data - Summary (MIX = T) 


Print Heading Description 
XD Axial coordinate, in. 
RD Outer boundary normal coordinate, in. 

YCB Inner boundary normal coordinate, in. 

YD Dimensionless equivalent of RD 

YCD Iterated dimensionless location of outer boundary 
PD Iterated static pressure, psia. 

FLOW Flow conditions at a given station 


SUBSON - Subsonic 
SUPSON - Supersonic 
CHOKED - Choked 
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Continued Mixer Station Data - Summary (MIX = T) (Concluded) 


Print Heading 


THRUST 
MA2 
VE2 


TE2 


3.3 SSFD PROGRAM OUTPUT 


The output from the SSFD program consists of dimensionless profiles 
of aerodynamic properties at the stations designated in JETMIX, as well as 
information on the location and strength of shocks at each calculation 
Station. The calculated output variables are summarized as follows: 


Print Heading 
X/R 
Y 
Mach Number 
Flow Angle 
Total Pressure 
Static Pressure 
Density 
U - Velocity 
Shock Angle 
Turbulence Intensity 
XSHOCK 
YSHOCK 
P2 
Pl 
MACH2 
MACH1 





Description 


Integrated momentum, lbf. 
Mach number external to the jet. 
Velocity external to the jet. 


Static temperature external to jet. 


Description 





x/Tj 

y/rj 

M 

v/u (actually the tangent of flow angle) 
Pe/Pey 

Ps/Pt, 

plots Pty is density based on Pt and Trt 

Ww y/ar, (at is sonic velocity based on Trt) 
Ay/Ax (actually the tangent of shock angle) 
u'/uj 

x/T4 

y/rj at shock 

Ps/Pey downstream of shock 

Pg/Pej upstream of shock 

M downstream of shock 


M upstream of shock 


The subscript "j'' has been used to denote exit-plane properties. 
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3.4 MERGE PROGRAM OUTPUT 


The MERGE program is utilized to collate the aerodynamic output pro- 
duced by the JETMIX and SSFD programs. The output produced by the MERGE 
program is similar to that of JETMIX and consists of the merged dimension- 
less profiles at the JETMIX output axial stations. The SSFD output is only 


available for those stations where the flow is nominally supersonic. Downstream 


of this point, the printed profiles consist of only the JETMIX data. The 
collated variables in their literal order of appearance in the printout 
are as follows: 


Print Heading Description 

Y Dimensionless normal coordinate, Y = 2y/dj 
PSI Stream function jy, lbm/ft? 

UD Dimensionless velocity, u = u/u; 
THD Dimensionless temperature, 6 = T/Tj 

ED Dimensionless turbulence energy, E = e/ej 
RHO Density, lbm/ft? 
XLN Turbulence length scale, ft. 


3.5 NOISE PROGRAM OUTPUT 


The main output for the NOISE Program consists of the following cate- 
gories: One-Third Octave Band Analysis, Acoustic Summary of the Aero- 
dynamic and Acoustic Parameters, and the acoustic Power Summary. 


3.5.1 One-Third Octave Band Analysis 


The one-third octave band analysis consists of two parts; a tabulated 
list of 1/3 OBSPL's and a computer plot of the same data. The calculated 
output variables are summarized as follows: 


Print Heading Description 
x/D Axial location of microphone in rectangular 


coordinates (in diameters) 


Y/D Cross-stream location of microphone in rectangular 
Coordinate system (in diameters) 


R/D Radial location of microphone location in R,6 
polar coordinate system (in diameters) 








Print Heading 


ANGLE 


CENTER FREQ, Hz 
LOWER FREQ, Hz 
UPPER FREQ, Hz 


NPTS 


SPL 


Description 


Polar angle (8) from jet axis to microphone 
location (degrees) 

The center one-third octave band frequency (Hz) 
The lower limit for the one-third octave band 


The upper limit for the one-third octave band 


The number of volume elements used in performing 
the prediction of a 1/3 octave band 


The one-third octave band sound pressure level 
prediction 


3.5.2 Summary Acoustic Analysis 


The summary acoustic analysis for the NOISE Program consists of a summary 
ot the aerodynamic parameters and the far-field noise parameters. The out- 
put variables are summarized as follows: 


Print Heading 


TE 

PE 

VE 

ME 
TIE 
DIAJ 
MJET 
TJET 
PTJET 
VJET 
TIJET 
GAM 
RG 
PR 
PRT 
sc 
TREF 


Description 


Ambient static temperature, ° R 
Ambient static pressure, psia 
External velocity, fps 

External Mach number 

External turbulence intensity 
Diameter of jet, in. 

Primary jet Mach number 

Primary jet static temperature, ° R 
Primary jet stagnation pressure, psia 
Primary jet velocity, fps 

Primary jet turbulence intensity 
Ratio of specific heats 

Universal gas constant, ft lbf/lbm ° R 
Prandtl number 

Turbulent Prandtl number 

Sutherland constant, ° R 


Reference temperature, ° R 








Print Heading 


MUREF 

N 

ANGLE 

OASPL 
SOUND PRES. 

PNdB 

OBSPL 


Description 


Reference viscosity, lbm/ft sec 
Microphone number 

Microphone angle location, degrees 
Overall sound pressure level, dB 
Acoustic sound pressure, dynes/cn* 
Perceived noise level, dB 


Included in the acoustic summary are octave 
band sound pressure level predictions 


3.5.3 Summary Acoustic Power Analysis 


The acoustic power analysis consists of an overall power level pre- 
diction, power per unit length of jet slice, and a 1/3 OBPWL prediction. 
The output variables are summarized as follows: 


Parameter 


PWL 


X 

CENTER FREQ, Hz 
LOWER FREQ, Hz 
UPPER FREQ, Hz 


NPTS 


POWER 


3.6 SAMPLE CASE 


Description 


Overall power level {veto watts) per unit 
length of jet, radiating from station X 


Axial station in jet diameters 

The center one-third octave band frequency (Hz) 
The lower limit for the one-third octave band (Hz) 
The upper limit for the one-third octave band (Hz) 


The number of volume elements used in constructing 
the prediction 


The one~third octave band power spectra 
re 10713 watts 


The input/output for the Supersonic Jet Noise Prediction System 
(SSNOISE) is best illustrated with a sample case. The sample case is 
included in Appendix 10. The first page of Appendix 10 shows typical 
card input of JETMIX, SSFD, MERGE, and NOISE. This particular case was 


run in series as one job. 
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Following the requisite header cards and the program card, the 
essential input to JETMIX consists of the following items, describing the 
flow conditions at the discharge plane of the jet and the external 
boundary conditions: 


Axisymmetric - Isothermal - Single Jet 


Jet diameter 


Jet Mach no. 


Jet temperature 


Jet turbulence intensity 


Ambient pressure 


Ambient static temperature 


Ambient Mach no, 


Ambient turbulence intensity 


4.3 in. 

1.559 (supersonic) 
518.7° R 

0.1 


14.696 psia 
SL8.7" & 

0 

0 


The definition of jet temperature equal to ambient temperature causes th« 
JETMIX program to bypass the solution of the energy equation and to cal- 


culate an isothermal flow field. 
supplied for this case. 


Note that no station input (X, XPRN) was 
As discussed in the Input section, a set of 


optimized acoustic stations are built in and used if station input is not 
These 72 stations are as follows: 


given. 





0001 
-0002 
.0003 
.0005 
-0008 
001 
-002 
-004 
- 006 
.008 
-010 
015 
-017 


»45 
-50 
°55 
-60 
-65 
-70 
- 80 


2.0 
2.5 
3.0 
3.4 
4.0 
5.0 
6.0 
6.2 
6.5 
6.8 
7.0 
7.5 
8.0 
9.0 


XPRN X APRN 
1 14.0 ~1 
1 15.0 1 

~1 16.0 -1 
1 17.0 -1 
~1 18.0 -1 
1 19.0 ~1 
-1 20.0 1 
1 21.0 1 
-1 22.0 ~1 
-1 23.0 ~1 
at 24.0 ~-1 
1 25.0 ~1 
-1 26.0 ~1 
1 28.0 ~1 





X XPRN xX XPRN xX XPRN Xx XPRN 





-02 1 1.0 1 10.0 -1 30.0 =] 
-04 1 baz =-1 11.0 4. 32.0 : 
-06 Y.5 =. 12.0 -1 34.0 2 
-08 se RY: = 13.0 1 36.0 a 


The input of CXTP = 0.04 was utilized to speed the calculation in the 
transition/similar region downstream of the point where the potential core 
disappears. 


The program output of JETMIX is given on pages 672 to 719 and consists 
of the initial conditions at the discharge plane of the jet, the calculated 
aerodynamic profiles at the stations where XPRN = 1, and the final summary 
page with calculated station data and the overall jet properties. Referring 
to the summary page, it will be noted that stations have been inserted where 
the potential core disappears (X = 4.12861) and where the supersonic core 
disappears (X = 12.12730). The corresponding profile output at these stations 
is also printed. The output parameter headings are described in Section 3.2. 


The input to SSFD consists of the following items: 


Initial jet Mach number (XMACH) 1.05 
Stability parameter (STABIL) 0.6 
Final x/dj for calculation (XL) tay 


This case corresponds to an underexpanded jet (recall that the fully expanded 
"ideal" Mach number input to JETMIX was 1.559). The inputs of STABIL = 0.6 
and XL = 1.7 were utilized to speed the calculation by increasing the 

axial step size and decreasing the distance over which the calculation is 
performed, respectively. 


The program output for SSFD is shown on page 721. The output parameters 
and headings are described in Section 3.3. Radial profiles are given at each 
of the axial stations for which XPRN was specified as +l or -1 in JETMIX, and 
for which x/dj < XL. In addition, the progression of shocks through the flow- 
field is monitored at intermediate axial stations. 


The input to the MERGE program consists of a single card designating 
the MERGE program, with both a file input (file 2) and a file output (file 3). 
The output from the MERGE program consists of composite (JETMIX and SSFD) 
profiles at each of the JETMIX stations where XPRN # 0. The MERGE output is 


shown on page 766. The output parameter headings are described in Section 3.4. 


For the NOISE predictions, two cases were computed using a Lighthill 
model modified for a combination of self-noise and shear-noise (see pages 813 
to8s47). The first case is for a prediction using JETMIX results as input 





data alone, the second case is for a prediction using MERGE results as 
input (no-shock case versus a shock-flow case). The predictions are for a 
model scale jet on a 40-foot arc. The program output is seen to consist 
of 1/3 OBSPL summaries at jet angles of 10, 20, 30, 150, and 160°. This 
is followed by an overall summary page of the basic aerodynamic parameters 
and the far-field noise OASPL, PNdB, and OBSPL; and a summary page for the 
predicted jet power per unit slice, OAPWL, and power spectra. Section 2.5 
describes the output parameters. 


As an example test case for near-field noise predictions, see the last 
test case run in Appendix 10 (pages 848-901). There the lateral quadrapole 
near-field acoustic model is shown, This test case, with the instructions 
given in Appendix 9 - Input Sheets - should suffice as an example for running 
any of the other near-field models. 





4.0 OPERATING PROCEDURES 


4.1 GENERAL DESCRIPTION 


The SSNOISE system described herein may be run on any Control Data 
6400/6600 machine operating under SCOPE 3.0 or a higher level operating 
system. In general, operating procedures and control card setups will 
differ from site to site. The following comments on program modifications, 
deck setups, and operating instructions are restricted to the program as 
run through the CDC Cybernet System. Minimal changes should be necessary 
for successful installation at other CDC sites. 


4.2 MAINTENANCE AND MODIFICATION 


The SSNOISE system source deck consists of approximately 14,000 FORTRAN 
cards. The source copy contains *DECK cards as the first card of each sub- 
routine. These decks (tape) may be used directly to initialize an UPDATE 
file (tape or permanent disc) which may subsequently be used for maintenance 
and modification (standard SCOPE - UPDATE program). It is recommended that 
relocatable and absolute binary files also be maintained either on tape or 
permanent disc. Execution from the absolute binary file requires a central 
memory field length of 103000g locations. A typical deck setup for execution 
from an absolute binary file through CDC Cybernet System is as follows: 
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RFL (40000) 

LABEL (SSNOV, R, VSN = S2222) 
COPYBF (SSNOV, SSNOISE) 
REWIND (SSNOISE) 

COPYBF (INPUT, TAPES) 
RFL (103000) 

SET (0) 

SSNOISE 

67, (EOR) 

{Input Data] 

67g, (EOF) 


4.3 INPUT AND OUTPUT FILES 


As mentioned previous!y, each program, with the exception of NOISE 
program produces an output file which may be used as input to the other 
programs in the SSNOISE system. The files and their functional use are 
repeated here for convenience, 


u 
_ 
uy 





File Device Functional Usage 


TAPEL tape JETMIX restart file 
TAPE2 tape/disc JETMIX output file 
Input file to SSFD, MERGE, NOISE 
TAPE3 tape/disc SSFD output file 
Input file to MERGE 
TAPE4 tape/disc MERGE output file 


Input file to NOISE 


In a given run, if the file is not assigned via an appropriate tape card 
(REQUEST, LABEL), the file will be automatically assigned to disc when it 

is opened. The output file from JETMIX, SSFD, or MERGE may be saved on 
tape and used as input in a subsequent job. If the aerodynamic configura- 
tion does not change, it is economically feasible to run the aero program(s) 
once and save an output tape. The resulting file may then be used as 

input for parametric running of the NOISE program. In this case, there 

is no need to rerun the aero program(s) with each NOISE case. 


The following schematic input deck setups illustrate the flexibility 
available to the user: 


1) 





2) 


Execution of all programs in SSNOISE system. 


using both the JETMIX file and the MERGE file. 


[Control card stack] 
(EOR) 
7 
NAME = 
ADDRES = 
IDENT = 
JETMIX F E 
SA 
(JETMIX input) 
$ 
SSFD fi ‘EB 
SINPUT 
(SSFD input) 


MERGE 
NOISE 
SA 
(NOISE input - JETMIX output file) 


NOISE T F 

SA 

MFILE = 4, (NOISE input - MERGE output file) 
$ 

(EOF) 


Execution of JETMIX - Save output file on tape 


Control card stack 
LABEL (TAPE2, W, X, = SV, LABEL = JETMIX) 
(EOR) 
yee 
ADDRES = 
IDENT = 


NOISE executed 





JETMIX F T 
SA 
(JETMIX input) 
$ 
(EOF) 


Execution of SSFD and MERGE using previously saved JETMIX output 
tape. Save MERGE output file on tape. 


Control card stack 
LABEL (TAPE2, R, VSN = S1111) 
LABEL (TAPE4, X=SV, LABEL = MERGE) 
(EOR) 
7) 
NAME = 
ADDRES = 
IDENT = 
SSFD d T 
SINPUT 
(SSFD input) 


MERGE T T 
(EOF) 
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APPENDIX 6 


ANALYSIS INCORPORATED IN JETMIX 


Exhaust nozzles of contemporary gas turbine engines generally operate 
near their ideal expansion ratios. In view of this, General Electric's 
initial efforts at the prediction of the sound field of a supersonic jet 
relied on an aerodynamic analysis which includes only the effects of turbu- 
lent mixing. Specifically, the aerodynamic model is of the viscous, boundary- 
layer type. In this analysis, which is incorporated in the JETMIX computer 
program, the time-averaged turbulent boundary layer equations are solved 
using boundary conditions which are appropriate for free jets. The turbulent 
Reynold's stresses are included by means of a turbulence model which is based 
on a turbulent kinetic energy concept. 


The flow field under consideration consists of a plane or axisymmetric 
turbulent jet exhausting into a region of constant (ambient) static pressure. 
This is illustrated schematically in Figures 249 and 250 for subsonic and 
supersonic jets, respectively. The flow of diameter or slot height (d,) dis- 
charges at an initial velocity (up) into a free stream of velocity (uex). 

The flow field is characterized by three distinct regions. Region 1 consists 
of a turbulent mixing layer which penetrates into the uniform parallel flow 
originating at the jet discharge. Upon disappearance of the potential core, 
the mixing characteristics undergo transition (Region 2), until, at some 
distance downstream of the discharge plane, the velocity profiles normal to 
the jet axis become similar (Region 3). 


The dependent variables of interest in the mixing problem are the stream- 
wise velocity (u), the transverse velocity (v), the static temperature (T), 
the turbulence energy (e), and the constituent mole fractions (aj). If trans- 
verse gradients are large with respect to streamwise gradients, the equations 
of motion describing the flow field may be reduced to boundary layer form. 
For plane or axisymmetric flow, the governing boundary layer equations appli- 
cable to the free-mixing problem are: 


CONTINUITY EQUATION 


a(puy) | ‘toys avy] «9 (232) 


ax 


: Plane (2-0) flow 
€ = 


1 axisymmetric flow 
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where u and v are the streamwise and transverse mean flow velocities, respec- 
tively. The term <p“v~> represents the induced transverse mass flux of the 
fluctuating portion of the flow. Using order-of-magnitude arguments, Bradshaw 
(Reference 157) and Mellor (Reference 158) have shown that this term should 

be properly retained in the boundary layer form of the compressible equations 
of motion. 


SPECIES CONTINUITY EQUATION 








& 
ele} Cle} u Ry do 
i ete ft. 0 i 
pu a5 +(ov +<p*v*> = (Fe ay ) (233) 
where: Sje = effective Schmidt number 


He effective viscosity 


X-MOMENTUM EQUATION 


The static pressure may be assumed constant for the free-mixing analysis. 


In this case, the streamwise momentum equation becomes: 


du RAs du aa € du 
=n + — = — 
pus + (ov +<p*v7> By ge ( y *) (234) | 


ENERGY EQUATION 


The energy equation in terms of enthalpy is: 


, ) a ' 
oe oe ob low + xp"e"> ea, y — 





ax oy y dy ay e ay 
h da ). u 2 
pi ni e i) de de a 
eee —-({=—) - ou —- (pv + <p*v’> 9 (235) 
i Sie °Y ay 8.J \ dy ox y 
where: hy = constituent molar enthalpy 
M = mixture molecular weight 


Te = exchange coefficient 
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The static enthalpy of the mixture may be eliminated as an independent 
variable by using the following definitions: 


h =+ Day hy 58) 
M i 
1 
Cp = =)oo4 Cpy (237) 
Mi 
Differentiating, 
sh dh, 3a 


LS i if nl 
=o go th 
a HT = RG ox 





l dh, da, 
ket HE yh Dihy iy 
M i i 


Ztile 


Using equation 236 and the species continuity equation, equation 233 
yields the energy equation in terms of the mixture Cp and the static 
temperature (T). 


on ee ee ee 
po Cp + (ov + <pov'>) Cy ay 5 (te » = 
1 3 9 Yow Sos 2% for) Ye foul? 
+e eT Yao tees ae bag) * a Lay oe) 
race aie fi 7 F VF Fe 
de ide BE 
=== (pv + <p*v~> ay 


The pressure, density, and temperature which appear in the above equa- 
tions are related to each other by means of the perfect gas law: 


P = oRT (239) 
where: R = mean gas constant for mixture. 
The mean mixture heat capacity is considered to be a function of the 


static temperature T. For constant R then, Cp may be related to the isen- 
tropic exponent y as: 








a 
perry (240) 
Specification of y as a function of temperature then enables calculation of 
Cp. 
The Prandtl/Glushko/Spalding model which is discussed in the following 
section has been incorporated into equations 233, 234, and 238. 


VISCOSITY MODEL 
Introduction of an eddy viscosity (ge) permits expression of the local 


shear stress in terms of an effective viscosity and the mean flow velocity 
gradient: 


du ee 
= + = —II}- < 
eS OP, (3) (pv) “u~> (241) 
t= (utu,) Ca du 


Phenomenological models, such as the Prandtl mixing length (Reference 
114) have been used to relate the "eddy" or "turbulent" viscosity (ut) to the 
local mean velocity field. These models imply that the turbulence adjusts 
immediately to changes in mean flow conditions and that a universal relation- 
ship exists between the turbulent stresses and the mean strain rates. Experi- 
mental data have indicated that there is a delayed response of the turbulence 
structure to sudden changes in mean conditions. The turbulent kinetic energy 
equation proposed by Prandtl (Reference 114), and utilized by Glushko (Reference 
4) and Spalding (Reference 118), provides a more fundamental modeling of the 
"eddy" viscosity. In the present work, the Prandtl-Kolmogorov relations, as 
given by Glushko and Spalding, are used to relate the “eddy” viscosity to the 
mean flow quantities. After Kolmogorov (Reference 115), the turbulent shear 
stress is taken as a universal function of the Reynolds number of turbulence: 


Te = ua R. (=) = Me (~) (243) 


where a = Constant = 0.2 ale L. 
a = Reynolds number of turbulence = ———— 
e B Turbulent kinetic energy 
Le = Length scale characterizing turbulence 


The "effective" viscosity is defined as the sum of the laminar and 
turbulent parts: 


= +u.2 ad +s R) (244) 
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Cu 

t W ' 

Defining a turbulent Prandtl number as Prt = -—, the "effective' 
thermal conductivity is given as: £ 


ke = Lo(*) 2 
e7 “pe Pipe “\u / Pr, (245) 


F 


The above relations introduce the turbulent kinetic energy as an additional 
dependent variable. The boundary layer equations cited previously may be aug- 
mented by an additional partial differential equation describing the conser- 
vation of turbulent kinetic energy. Specification or calculation of the char- 
acteristic length scale (Lt) then provides closure of the system of equations. 


TURBULENT KINETIC ENERGY 


The turbulent kinetic energy equation, discussed in Hinze (Reference 149), 
represents the balance between the advection, diffusion, production, and dis- 
sipation of turbulent kinetic energy. In the Prandtl/Glushko model (Refer- 
ences 114 and 4), the pressure-velocity correlation term and triple velocity 
correlation term arising in the development of the turbulence energy equation 
are combined as a "gradient diffusion" term. The resulting turbulent kinetic 
energy equation is: 


Je de t 2 e Je 3 2 
pu —— + (pv + <p*v*>) — = — —I Pr as oes ou} - D (246) 
ax dy y©& dy ey dy La dy - 


In modeling the dissipation term (De), it is assumed that the small-scale 
eddies responsible for the dissipation of mechanical energy are capable of 
handling all the energy transferred to them by the larger scale motion. The 
process is then assumed to be diffusion controlled, and both the exchange 
coefficient (Il.) and the dissipation term (De) are expressed in terms of an 
"intravortex" turbulent viscosity (D): 


Te = uD (247) 
= (CuD)e 
De x. (248) 
t 


The coetficient, D, is given by Glushko and Spalding as: 


D= 1+ an Rt (249) 


uw 
4 
a 








where: 
n = Constant = 0.586 (after Spalding) 


The constant (C) in the dissipation term of the turbulence energy equation 
is assigned the value 2.59 (Spalding) for application to the turbulent mixing 
problem. 


The principal uncertainty in the turbulence model resides in the charac- 
teristic length scale assigned to the turbulence (Lt). A partial differential 
equation for Lt, similar to the turbulence energy equation 246, has been 
derived by Rotta (Reference 3). In the present analysis, however, the char- 
acteristic scale of the jet turbulence is assumed independent of the trans- 
verse coordinate (y), and is expressed in terms of the geometric parameters 
of the jet. Experimental data are used to define the constants in the model. 


Referring to Figure 249, the mixing region of the single jet may be 
divided into three distinct zones. In zone 1, the flow consists of a mixing 
layer which penetrates into the uniform parallel flow emanating from the jet 
discharge. The turbulence scale in this region is assumed proportional to the 
width of the mixing layer: 


beqyy 7 — ie (250) 


L + Cho My 


i 


where: b 
My 
Ctr1, Ce2 = Empirical constants 


Width of mixing layer 


Jet discharge Mach number 


The above relationship, along with empirical values for Ct] and Ct2, is 
developed in References 49 and 159 where comparisons with experimental data 
are given. 


In Zone 3, the velocity profiles are known to be similar. The turbulent 
scale for this fully developed region is defined, after Spalding (Reference 
118), to be proportional to local radius or half-height of the jet (Yj). 


Lea) * “eg Y3 (251) 


The turbulence length scale in the transition zone (Region 2) is less 
well defined than those in Regions 1 and 3, in that experimental data are 
sparse or nonexistent. Two models are available for this region. [In the 
first, an exponential increase in length scale is assumed to occur upon 
disappearance of the potential core: 
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¢c 
L = £3 Yy >. “Ey (Cg z CE7 M,) 
t(2) M, (252) 


A ea Sr 
5 Ii 


The end of the transition zone is calculated as the axial station at which 
Lt(2) first becomes equal to or greater than Lt(3). The constants in this 
model must be determined from experimental data. 


The second model assumes that the length of the transition zone is equal 
to the length of the potential core (L<), and that the length scale varies 
linearly from the end of the core to the beginning of the fully developed 
region: 


Y 

= fh ae x 

Le) L+¢.. w (: L }* ee: * (; F : (253) 
2 3 € c 


Calculations based on this model generally have been found to show closer 
agreement with experimental data than those based on the model of equation 
(252). 


The numerical values assigned to the constants Cr] thru Crg are: 


Cea = 0.23 Ce5 = 0.38 
Cea = 0.38 Crg = (1.4 
Cez = (0.23 Cry = «0.43 
Ceg = «(0.05 Ceg = 0.1875 


Using equations 247 and 248, the turbulent energy equation 246 may 
be rewritten as: 


3 dy dy 


9 p) a € de 
pu = + (pv + <p*v>) <= a (0 ze 
x ye 








BOUNDARY CONDITIONS 


Considering the jet to be symmetric about the line y = 0, the applicable 
boundary conditions are: 


du de aT if 
@ = ——_> = — = — = — = c 
y = 0 By By Oy” By 0 (255) 
(a = = 
°F Vex * Yex 
fa Tf 
ex 
@e=e 
ex 
eg 1. 
i 1ex 


TRANSFORMATION OF DIFFERENTIAL EQUATIONS 


The preceding equations may be cast in a more convenient form by non- 
dimensionalizing with respect to the primary jet diameter and the discharge 
flow field variables up, ep, Tp. The requisite relations are: 


eo Bae y= 2 
P Pp 
u Vv Ay ward 

32 Vee , Vie (256) 
P p P 


Substitution in equations 232 through 235 and equation 254 yields: 


Continuity 


€ 
a a safe 
2G) + 2—> [(oV + <p*V*>) ¥°] = 0 (257) 








X-Momentum 











aU Heh eae & \9 e aU 
oy — + 2 (py + <p >) — = | ——  ) — Eel 
PU 3x fey + <p°W">) oy | oY (H z a4 (258) 
Wwod. ¥ 
P Pp 
Turbulent Kinetic Energy 
JE mes dE 4 3 € dE 
<= or Bs oh aero | eee) — 
eU xy 2 (pV + <p~V~>) aY 2 ar ay (uby a) 
\P P (259) 
4u ae uCDd_E 
+(——P- J u (2) - ——2- 
gJdoe, c oY ¢ L2 
pt 
Species Continuity 
da, da, » % u_Y° 30 
ay? Bean prem: same Ie ey ae ae 
OU 3X ad CON Fe <p o>) i =) 3rl3 7 (260) 
ud ¥ ie 
P Pp 


Energy 
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The boundary conditions become: 


Ble! 


aU _ 9E _ 26 i 





a — => = = = 
Shed wy” oy” or” 0 
‘a > y J = ] 
@¥Y tan U vee (262) 
E = E 
ex 
= ex 
a ae “tex 


The continuity equation 257 may be identically satisfied by introduction 
of the stream function coordinate ()) as one of the independent variables 
(Von Mises transformation). Define a modified stream function, satisfying 
continuity as follows: 


iy J 3 Se 
ae ee =" - (pV + <p“V>) ¥© nc 


Using these relationships in equations 258 through 261 removes the 
transverse velocity components (V,V~). 


The system of nonlinear parabolic differential equations (257 through 
261), along with boundary conditions and suitably prescribed initial condi- 
tions, represents a properly posed initial value problem. The solution may 
be stepwise advanced in the positive X direction using a finite difference 
approach, The implicit numerical technique utilized in the present investi- 
gation closely parallels that of Patankar and Spalding (Reference 160). The 
general programs of these latter investigators were not available at the 
inception of this project. The differences between the two approaches arise 
primarily in the type of finite difference mesh and the methods of controlling 
the streamwise step size. 


The Patankar method uses a fixed dimensionless streamline grid. The 
stream-wise step size is controlled by explicitly monitoring the flow environ- 
ment over a given step. In the present work, streamlines are added in a 
systematic fashion to cover the entire flow field. The streamwise step size 
is related to the local geometric parameters of the jet, such as the width of 
the mixing zone of the distance to the effective edge of the jet. 


The partial differential equations are all of the general "diffusion 
equation" form: 


4 ¢ aF aF 
SF = qQ i (2 a) + v + 6F + Y) — (264) 
aX ay y 
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where F may represent any of the independent variables (U,E,4,aj). The 
equations are coupled principally through the normal derivative terms. Hence, 
a sequential solution technique may be utilized, as opposed to direct simul- 
taneous integration. The specific procedure consists of initially formulating 
the differential equations in terms of linear difference equations. The 
linearization is effected by evaluating the coefficients of the differential 
equations at the known upstream mesh voints. The X-momentum equation is 

first solved for values of U and 3U/3¥ at the downstream station. Using these 
quantities, the turbulent kinetic energy equation may be integrated to 
determine E and 3E/3¥. Finally, the species continuity and energy equations 
may be solved using the results of the preceding two solutions. 


VALIDATION OF MODEL BY COMPARISON WITH EXPERIMENTAL DATA 


The JETMIX analysis has been compared with a wide spectrum of experi- 
mental data. The comparisons (some of which are shown here) have, in general, 
been very good. In particular, the JETMIX analysis has proven capable of 
accurately predicting the effects of changes in the external environment of 
the jet, including changes in the velocity, temperature, composition, and/or 
pressure of the external stream. 


In Figures 251, 252, and 253, the measured cross-stream mean velocity 
profiles of Laurence (Reference 161) are compared with JETMIX predictions at 
each of three axial locations. A corresponding comparison for the turbulence 
intensity is shown in Figure 254. The excellent agreement between the JETMIX 
predictions and the experimental data for both the velocity profile comparisons 
indicates the potential of the JETMIX analysis as an exhaust-plume, flow-field 
prediction tool. 


Comparisons between hot-jet test results and the free turbulent mixing 
analysis are given in Figure 255 through 258. These comparisons, which 
show the axial variation of the total temperature, the total pressure, the 
velocity, and the Mach number on the jet centerline, are again very good. 
These data were obtained at General Electric using a traversing water-cooled 
rake. The experimental setup consisted of an exhaust jet issuing from a 
conical nozzle at a pressure ratio of 3.2. The facility temperature was 
2400° R. The actual rake data indicated that the nozzle was operating at a 
fully expanded Mach number, M = 1.45, and at a total temperature of 2550° R. 
These measured conditions in the supersonic core were used as the initial 
conditions for the mixing analysis predictions. 


Additional comparisons between these same hot-jet test results and the 
JETMIX analysis are given in Figures 259 through 266. Figures 259 and 260 
show typical radial profiles of total temperature at each of two axial locations. 
Figures 261 and 262 show the corresponding cross-stream velocity profiles, 
while Figures 263 and 264, and Figures 265 and 266, show the corresponding 
Mach number profiles and total-pressure profiles, respectively. It is 
emphasized that the empirical constants which were used in the turbulence 
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Figure 259. 4.3" Conical Nozzle Exhaust Plume Total Temperature Versus 
Radius, JENOTS Wake Rake Data. 
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260, 4.3" Conical Nozzle Exhaust Plume Total Temperature Versus 
Radius, JENOTS Wake Rake Data. 
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Figure 261. 4,3" Conical Nozzle Exhaust 
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Figure 263, 4,3" Conical Nozzle Exhaust Plume Mach Number Versus 
Radius, JENOTS Wake Rake Data. 
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Figure 266. 4,3" Conical Nozzle Exhaust Plume Total Pressure Versus 
Radius, JENOTS Wake Rake Data. 





model were not changed between the cold-jet predictions of Laurence's data 
and these hot-jet predictions. Consequently, the excellent agreement between 
the hot-jet data and the JETMIX predictions verifies that the analysis is 
capable of taking into account the effects of density changes in the flow. 
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APPENDIX 7 


ANALYSIS INCORPORATED IN SSFD/MERGE 


There are two distinct techniques which have been used to analyze the 
aerodynamic flow field in a supersonic jet. In the first approach, the jet is 
treated as a viscous, boundary layer flow. The resulting flow field is of the 
type depicted in Figure 267. According to the usual boundary layer approxima- 
tions, the radial velocity components are assumed small in comparison to their 
axial counterparts, and, in addition, the pressure is taken to be constant 
throughout the whole flow field. These approximations implicity assume that 
the static pressure at the jet exit plane is identical to the ambient pressure 
and that Prandtl-Meyer expansions and/or shock waves are not present in the 
flow field. Consequently, this viscous boundary layer analysis can only be 
applied to subsonic jets, or to supersonic jets which are ideally (or nearly 
ideally) expanded. 


In contrast to this viscous analysis, the second traditional technique 
for analyzing supersonic jets completely ignores the effects of turbulent 
mixing. In this second (inviscid) analysis, the full two-dimensional 
equations of motion are used, and strong radial and axial pressure gradients 
can occur. These pressure gradients have their origin at the nozzle exit 
plane where the static pressure generally is significantly different from the 
ambient pressure. In adjusting to the ambient pressure, the flow field 
generally develops a series of shock waves and Prandtl-Meyer expansions in a 
nearly periodic cell-like fashion. A schematic description of the quali- 
tative features of a jet described by this two-dimensional analysis is shown 
on Figure 268. 


As indicated above, both of these approximate models are applicable to the 
analysis of a certain class of supersonic jet. However, as might be expected, 
neither model applies to all supersonic jets. Thus, for example, the effects 
of friction can never be entirely removed from the jet. Further, supersonic 
jets are seldom uniform, parallel ideally expanded jets. Consequently, in 
order to obtain an acoustic prediction technique which is applicable to both 
ideally expanded and nonideally expanded jets, the aerodynamic model must 
include both two-dimensional effects and viscous mixing effects. This is 
accomplished by dividing the jet into an inner region and an outer region as 
shown in Figure 269. The outer region of the jet contains that part of the 
jet in which the effects of turbulent mixing are significant. Near the nozzle 
exit, the outer region is composed of a narrow annular portion of the flow 
field on the outer edge of the jet; downstream of the exit plane, the thick- 
ness of the outer region increases until eventually it includes the entire 
jet. In our analysis, this outer region is computed by our original viscous, 
boundary layer (JETMIX) computer program. Now, whereas the outer region of 
the jet is dominated by the effects of viscous mixing, the inner region of 
the jet is dominated by the familiar Prandtl-Meyer expansions and shock waves 
which characterize two-dimensional supersonic flow fields. In order to include 
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Figure 267. The Flowfield of an Ideally Expanded Viscous Jet. 


Figure 268. The Flowfield of an Inviscid Two-dimensional Supersonic Jet. 
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Figure 269, Subdivision of the Jet into Inner and Outer Regions (Outer 
Region Shown Shaded). 
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these effects in our aerodynamic model, a new computer program has been written 
to handle this inner region. This new program is called the Supersonic Finite 
Difference (SSFD) computer program. Thus, in the refined aerodynamic model, a 
supersonic jet is analyzed in two parts by two separate computer programs. 

The outer portion of the jet is analyzed by the viscous JETMIX analysis. The 
inner portion of the jet is computed by the two-dimensional SSFD analysis. 


As indicated in Figure 269, these two separate parts of the flow field 
are matched along the sonic line. Thus, the inner portion of the flow field is 
supersonic while the outer flow is subsonic. (In actuality some constant Mach 
number line, which is slightly supersonic, is chosen as the matching line 
rather than precisely the sonic line.) However, it must be noted that the 
sonic line appears in the jet because viscous effects have reduced the Mach 
number of the formerly supersonic flow. This indicates that the outer edge of 
the supersonic region has experienced considerable viscous effects. Thus, in 
order to include the two-dimensional effects in as large a region as possible, 
and in order to enforce as smooth a match as possible between the inner and 
outer solutions, the effects of the viscous mixing are included in the inner 
(SSFD) analysis as known "right-hand-side" terms. The magnitude of the 
"right-hand~side" terms is estimated from the viscous JETMIX computer program 
as indicated later. This matching technique allows the total pressure to 
vary continuously from the outer edge of the jet (where the flow is essentially 
stagnated) through the sonic line and all the way to the jet centerline (where 
the flow is supersonic). Then, by matching the static pressure at the sonic 
line, we can be sure that all flow properties are continuous at the matching { 
line. 


DERIVATION OF THE EQUATIONS USED IN THE INNER REGION 


As indicated above, the equations used in the inner region include the 
viscous effects as "right-hand-side”" terms. In order to obtain the form of 
these "right-hand-side" terms, the equations for the inner region are obtained 
from the complete Navier-Stokes equations. An outline of the derivation 
follows. 


The equations of motion for steady, compressible, viscous flow are: 
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where: e = internal energy 


= pressure 
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v= velocity vector 


= density 
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= viscous stress tensor 
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Two vector identities which are useful are: 
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If we dot equation (266) by the velocity vector, v, and use identity (268), 
we obtain: 


ov. * fo. v1 eo. tp ee. a td (270) 


Then, combining equations (265) and (267) and using identity (269), the 
energy equation becomes: 


aM. Tew Ve tp Ou «TRO Rs Ws = Oa (271) 


where we have also converted from internal energy to enthalpy. Then, adding 
equations (270) and (271) gives: 
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where: h = enthalpy 
h°= stagnation enthalpy 
e 

We now define the scalar function, Q, as: 

Q (x,y) =p Vv. Vb? (273) 
and, by equation (272), we also have: 

Qiy)ev. WwW. - 0. Gg (274) 


If we now combine equation (274) with equation (271) and use the thermo- 
dynamic equation of state, the energy equation becomes: 


oT (¥. Ve) @ev. (V. 7) +Q (275) 
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where: s 
E 


entropy 


temperature 


Finally, defining the scalar function, 4, as: 


¢ (x,y) =v. (V.T) (276) 


we can write the entropy variation along a streamline as: 


pF Vive =-— d+ 0 GATT) 


Thus, the equations of motion can now be rewritten as: 


V.pv=0 (278) 
0 (v. VW v+VpeR (279) 
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where the vector R is defined as: 


R=eV.t 


(281) 
so that: 
@ (x, ye © v.R (282) 
At present, the SSFD program limits the function, Q (X,Y), to the 
trivial function: 
Q (x,y) = 0 (283) 


This implies that only flow fields which have uniform total temperature 
throughout can be calculated. The extension of the computer program to 
include an arbitrary specification of the stagnation enthalpy is relatively 
simple. Note that the function, $, is not restricted; it can (in principle) 
be any function. When coupled to the JETMIX viscous analysis, the SSFD 
program automatically determines ¢ from the JETMIX-predicted entropy gain due 
to the turbulent stresses, 
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The equations of motion (278), (279), and (280) can be expressed in x-y 
coordinates as: 
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where: e = 0 Plane (2-D) flow 
emi Axisymmetric flow 
Rj, R2 = Axial and transverse components of R 


Axial and transverse components of velocity, v 


u,v 


Since the inner region is restricted by definition to be a supersonic 
flow region, it follows that equations (284) through (287) form a system 
which is hyperbolic in character. Consequently, these equations, like the 
(parabolic) boundary layer equations which are used in the outer region, can 
be solved by a marching technique. Although the classical method-of- 
characteristics (MOC) procedure could be used to solve these equations, we 
have chosen to use an explicit finite-difference algorithm, since it is some- 
what simpler and is more easily adapted to the matching procedure. During 
the calculation, the inner solution is determined on a series of axial planes 
at successively greater distances from the nozzle exit. The use of axial 
computation stations in the inner solution is convenient, since the outer 
solution also is determined on axial planes. Similarly, both analyses use 
the stream function, , as the cross-stream variable. Streamline-following 
simplifies the enforcement of the desired entropy and stagnation enthalpy 
variations along the streamlines. 


TRANSFORMATION OF THE DIFFERENTIAL EQUATIONS 


Before being replaced by their finite-difference equivalents, equations 
(284) through (287) are transformed to the x- coordinate system. The 
stream function, , is defined by: 
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The dependent variables also are replaced by the more convenient quantities: 


e logarithm of pressure, In p 

e tangent of the local flow angle, t = = 
° entropy, s 

® stagnation enthalpy. h° 


These four quantities represent the classical dependent variables for two- 
dimensional supersonic flow calculations, with two minor changes. First of 
all, the pressure has been expressed as the natural logarithm of the pressure, 
rather than as the pressure itself. This variation has been suggested in 
Reference 162 as a means of obtaining more accurate results in finite- 
difference calculations. Our experience has verified this finding, particu- 
larly in regions of high gradients such as those near the focal point of 
expansion fans. An unfavorable aspect of using ln p rather than p is that 

an increase in processing time is required, but the improved accuracy and 
reliability of the code seems to justify this added expense. The second 
change, the use of t rather than the flow angle, 6, is based on computational 
economy. There seems to be no accuracy advantage for using either t or § as 
the second dependent variable; consequently, t has been chosen because it 
eliminates extensive use of the trigonometric functions. The remaining two 
primary variables (entropy, s) and (stagnation enthalpy, h°) are chosen since 
the variation of these functions will be specified along the streamlines. 


Transforming to the x-) coordinate system and introducing the new depen- 
dent variables leads to the system of equations: 


oTu = = = ¢ (x,¥) +Q (x,¥) (289) 
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where we have used the assumptions of a perfect gas with constant specific 
heats. Note that, since partial differentiation with respect to x implies 
differentiation along a streamline, equations (289) and (290) represent 
the substantial derivatives of entropy and stagnation enthalpy. These 
equations explicitly relate the variation of s and h® along streamlines to 
the viscous effects, 
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Equations (289) through (292) are solved numerically by the MacCormack 
two-step finite-difference algorithm (Reference 163). This procedure is 
simpler and faster than the classical Lax-Wendroff technique (see Reference 
164), but still maintains second-order accuracy. Being explicit, the 
algorithm is only conditionally stable, and the maximum stream-wise step size 
is limited by the Courant-Friedrichs-Lewy (CFL) condition (see Reference 164). 


The marching calculation starts by determining the entropy and stagnation 
enthalpy at the new x-station for a particular streamline from equations (289) 
and (290). This is basically a table-lookup operation. Then, the pressure at 
the new x-station is determined from equation (292); and, finally using this 
value of 3p/3~, the flow angle at the new station is determined from equation 
(291). 


The SSFD computer program is limited to equal spacing in the stream 
function, ». Changing to variable cross-stream-mesh spacing is possible; but, 
with the MacCormack algorithm, a change to variuble-mesh spacing would render 
the calculation first-order accurate. (Note that each downstream step size 
is calculated as the computation proceeds so that, in general, no two-stream- 
wise step sizes are identical but rather only the cross~stream-mesh widths are 
the same.) Equal intervals in | implies equal amounts of mass flow between 
each of the mesh points in the field. In an axisymmetric flow calculation, 
this equal spacing in stream-function means that the grid points will become 
less dense in physical space as the axis is approached. This tendency is 
further amplified in an underexpanded exhaust jet because the flow responds 
to the lower ambient pressure by expanding and, by so doing, moves the points 
nearest the axis of symmetry further from the centerline. In order to 
counteract this grid-point spreading near the centerline, an existing SSFD 
capability for running two parallel flows was used. Thus, any jet calculation 
is run as a coannular pair of jets with a complete slip-line boundary between 
them. Since the coannular jets are really comprised from a single jet, no 
discontinuity in temperature or stagnation pressure is used across the slip 
line. This coannular jet artifice is used only to increase the density 
grid points near the axis of symmetry while, at the same time, maintai 
convenience and economy of equal cross-stream spacing. As the prograr 
currently set up, it will automatically divide any axisymmetric jet 
coannular ones. 


BOUNDARY CONDITIONS 


Although the field points are calculated by a fi 
the boundary conditions are enforced by means of a met 
approach similar to the one used by Moretti (Reter 
finite-difference calculations. The desirabil 
conditions in finite-difference calculation 
study by Abbett (Reference 166), in whi: 
approach (along with one other method) w 


an entire series of other numerical 
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In applying the boundary conditions, we first note that the characteristic 
directions are unaffected by the viscous "right~hand-side" terms and so remain 
the same as in inviscid flows. The viscous terms, however, do affect the 
compatibility conditions which must be enforced along the characteristics. 


By using standard techniques, the compatibility conditions can be shown to be: 


1 uw dt + MZ =] dp (293) 
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where: = speed of sound 


( 
M = Mach number 
Y 


= ratio of specific heats 


At the outer edge of the jet, the pressure is specified; and, the single 
characteristic from the new boundary point to the previous x-station is 
sufficient to determine the flow angle, v/u, as shown in Figure 270. Along 
the axis of symmetry, the flow angle must go to zero. In this case, it is the 
pressure which is determined from the compatibility relation. 


In either of these MOC calculations, it is necessary to know the value of 
the flow properties where the characteristic intersects the plane correspond- 
ing to the previous x-station. In all cases such as these, the values are 
found by means of linear interpolation. The use of higher order interpolation 
formulas is not recommended, since they frequently lead to increased errors 
arising from the nonanalytic nature of the supersonic flow variables. 


METHOD FOR INCLUDING DISCRETE SHOCKS 


The presence of discrete shock waves in a supersonic flow field, and the 
calculation of their location and strength, introduces two distinct problems. 
First, since the shock wave, in general, will lie between two field points 
(rather than being concident with one of them), additional shock-point 
storage locations must be introduced. Once these additional storage locations 
are provided, the propagation of the shock can be accomplished in a rela- 
tively straightforward manner. The particular method we have chosen is 
analogous to our technique for calculating boundary points, in that an MOC 
procedure is used, Thus, in computing the shock locus from the previous 
x-station to the new x-station, the new radial position of the shock is first 
approximated. The properties on the upstream side of the shock are then 
calculated by using the complete MOC equations along both the left-running 
and the right-running characteristics, as shown in Figure 270. Then, by 
geometrical relationships, the shock angle at the downstream station can be 
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Figure 270. Calculation of Boundary Con- 
ditions and Shock Strength 
and Location by Method of 
Characteristics. 








determined. The known conditions in front of the shock, plus the shock 
angle, are then sufficient to define all properties downstream of the shock 
via the Rankine-Hugoniot jump conditions. Then, finally, the compatibility 
condition for the single characteristic which overtakes the shock from the 
downstream side can be used to improve the predicted location of the shock. 


A second problem which must be surmounted when there is a shock in the 
flow field is the calculation of the regular field points which are adjacent to 
the shock. Calculation of such points requires a finite-difference technique 
which "reaches across" the shock. In our analysis, we adjust the properties on 
the opposite side of the shock by the jump values for that particular quantity, 
as shown in Figure 271. Then, using these adjusted values, we proceed to 
calculate these near-shock points in the normal manner. This procedure 
implicitly assumes that the gradients of the flow variables change by only 
small amounts across the shock. Although this is not necessarily the case, 
we have obtained good results with this method even in rotational flows. We 
have also tried a variation of the method suggested in Reference 167, but have 
returned to the present technique. 


At present, the SSFD computer program is capable of including only a 
single shock in the flow field at any axial location. When there are no 
shocks in the field, the program monitors the developing solution to detect 
the generation of shock waves, either from a sharp corner in a solid boundary, 
or due to the coalescence of characteristics. Since the program operates on 
a finite-difference technique rather than along characteristic lines, the 
characteristics are not readily available; however, their slopes are calcu- 
lated at each axial station in order to determine the allowable step size to 
the next axial station. The shock search procedure observes the angle change 
between characteristics of the same family which emanate from adjacent grid 
points. When these characteristics converge toward each other at faster than 
a prespecified rate (currently set at 5 degrees), a shock is inserted and the 
coalescing waves are represented by a discontinuous Rankin-Hugoniot jump. 
This shock search procedure is quite simple and, to date, has proved to be 
reliable. 


SHOCK REFLECTION FROM AXIS OF SYMMETRY 


As a shock wave in an axisymmetric flow field approaches the centerline, 
the shock becomes increasingly steeper. Because of this steepening, the 
axisymmetric equations will not allow the shock to reflect from the symmetry 
axis in a regular fashion. Instead, some sort of "strong" reflection must 
occur. As a result, a local pocket of subsonic flow appears behind the shock, 
and any computational procedure which relies on the hyperbolic character of 
the equations becomes invalid and has to be terminated. However, experimental 
Schlieren photographs show that this subsonic region is frequently small or 
even nonexistent (Reference 168). Thus, although the reflection shows up as 
a nearly normal "Mach disc" or "Rieman wave" in some cases, an apparently 
regular reflection takes place in other cases when the shock is sufficiently 
weak (even though the inviscid equations will not allow this). In order to 
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provide a means for continuing the flow field calculation beyond the location 
at which the shock first reflects from the axis of symmetry, we have incor- 
porated two approximate techniques for "calculating through" this presumably 
small, localized subsonic pocket. First, when the incoming shock is weak, a 
"regular" reflection procedure is used. However, for stronger incoming shocks, 
we switch over to a "Mach disc" reflection procedure. Which of the two 
techniques is to be used must be determined by the problem at hand. 


The "regular" reflection procedure utilizes a suggestion by Oswatitsch 
(Reference 169) that the axis of symmetry be "enlarged" near the shock in- 
pingement point so that the radial coordinate becomes small but still remains 
finite. The radial size of this "enlargement" is determined by the program, 
depending on the local strength of the shock. (Stronger shocks require more 
"fattening" of the axis of symmetry.) It is emphasized that these "enlarge- 
ments" generally encompass less than one half of one percent of the original 
mass flow so that they are scarcely detectable on a "blown up" plot of the 
shock locus. 


The "Mach disc" reflection technique (which is considerably more compli- 
cated than the "regular" reflection procedure) involves the insertion of a 
triple point and the use of an iterative technique to determine its location. 
In this analysis, a triple point is inserted at a chosen location on the 
shock, and the oblique shock which is moving radially inward is forced to 
branch into a second outward-running shock and a normal shock which extends 
to the axis as shown in Figure 272. The normal shock represents the Mach 
disc. A slip line is also generated at the "lambda" intersection. Downstream 
of the Mach disc, this slip line serves as a boundary between the supersonic 
flow and the subsonic flow. The supersonic flow is handled by the standard 
SSFD algorithm, while the subsonic flow is analyzed by a one-dimensional 
approximation. The height of this one-dimensional channel at succeeding 
axial locations is determined by requiring the pressure to be balanced across 
the slipstream, and by requiring the supersonic flow to be tangent to the slip 
line. This matching requirement causes the Mach number in the one-dimensional 
stream to vary as it flows downstream. The axial position of the Mach disc 
is then iteratively determined based on the behavior of the flow in this 
one-dimensional channel. The Mach disc is said to have been correctly 
positioned when the slip line forms a "throat" which reaccelerates the sub- 
sonic flow through sonic velocity in a smooth, continuous fashion. This 
Mach disc model is very similar to the ones used by Abbett (Reference 170), 
Averenkova, et al, (Reference 162),and Fox (Reference 171). Comparisons 
between this Mach disc model and experimental results, have shown reasonable 
agreement, but the iterative procedure is quite expensive (in terms of 
computer processing time) and tends to be unreliable. Most of the results 
presented in this report are based on the "regular" reflection. 


CALCULATION OF THE TURBULENCE FIELD 
The previous sections have described the model which is used to predict 


the velocity field in a nonideally expanded jet. However, before the acoustic 
characteristics of the jet can be determined, it is necessary to know some- 
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thing of the turbulence field in the jet. As indicated in Appendix 6 (or, see 
Reference 6), the turbulence model which is used in the JETMIX computer 
program is based on a turbulent kinetic energy approach. For ideally 

expanded jets, the magnitude of this turbulent kinetic energy has been used to 
evaluate the source terms in the classical Lighthill acoustic equations 
(Reference 10). Once these source terms are evaluated, the acoustic sig- 
nature of the jet can be readily determined. Since this acoustic formulation 
is based on the local mean and fluctuating properties of the jet, it should 
also be directly applicable to nonideally expanded jets. (This, of course, 
does not imply that the model would predict the same acoustic radiation from 
ideally expanded jets, because both the mean velocity field and the turbu- 
lence field depend on the expansion ratio of the jet.) Thus, it remains to 
determine the turbulent kinetic energy in the nonideally expanded jet. 


The conversation of turbulent kinetic energy is governed by the balance 
between the production, dissipation, convection, and diffusion of turbulence 
energy throughout the flow field. The form of the turbulent kinetic energy 
equation which is used in the JETMIX analysis is: 


de Ue ee 30 € de 
ail ax se ay ry ye ay (C)u, y 3y> sal 
3/2 
iv, aabe eS 
Me oy Ly 


where Cy, Cy constants 


e = turbulent kinetic energy 


Ly = turbulent length scale 
1. * turbulent eddy viscosity 


The turbulent kinetic energy is related to the three components of fluctuating 
velocity by: 
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As used in the JETMIX analysis, equation 294 applies to ideally expanded 
jets. However, there is one flow phenomenon which affects the turbulence 
levels, and which is unique to nonideally expanded jets, that is not included 
in the conservation equation (294). This phenomenon is the presence of shock 
waves in the flow field. These effects have been included in our analysis by 
means of Ribner'’s shock-turbulence interaction model (References 172-174). 





Ribner's analysis starts by decomposing the turbulence field into an 
infinite number of elementary vorticity waves of all wavelengths and orien- 
tations. Then for any one of these elementary waves, he calculates the 
manner in which the vorticity of the wave is altered as it is convected 
through a normal shock wave. The results of his calculation show that the 
Magnitude of the vorticity is increased as the wave goes through the shock. 
(Besides the increased vorticity, two new waves are generated, an entropy 
wave and an acoustic wave.) A summation over all wave numbers of the 
effects of the shock on each individual wave then yields an amplification 
factor for the turbulence as it is transmitted through the shock. Conver- 
sion from turbulence convected through a normal shock to turbulence convected 
through an oblique shock is made by a transformation of coordinates (Figure 
273). It should be noted that, although Ribner's analysis strictly applies 
only to straight shocks, it can also be applied to curved shocks (such as 
occur in supersonic jets), as long as the radius of curvature of the shock 
is significantly larger than the longest wavelength of the turbulence. 


In Ribner's analysis, the three components of turbulence amplification 
are defined by: 
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Figure 274 shows the amplification of turbulence by a shock in terms of 
the ratio of turbulent kinetic energy in front of and behind the shock. The 
turbulence amplification is plotted as a function of the ratio of the normal 
components of velocity in front of and behind the shock. As can be seen, the 
amplification is unity at a velocity ratio of unity (shock of vanishing 
strength) but quickly increases to a maximum of some 20% amplification for 
moderate shock strengths (normal component of incoming Mach number about 1.5). 


In our computer model, the turbulent kinetic energy is monitored at each 
point in the flow by means of equation (294), suitably transformed to x-y 
coordinates. When a shock wave is encountered, the turbulence amplification 
is determined from Ribner's theory, and the turbulent kinetic energy is 
increased locally by the amount of turbulence which is generated at the 
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shock. The resulting turbulence energy profiles have a discontinuous jump 
across the shock. Equation (294) is solved numerically using an implicit 
Crank-Nicholson procedure. Since this numerical algorithm is unconditionally 
stable, there is no restriction on the axial step size which must be used. 
Consequently, the step-size is determined by the supersonic flow equation, 
and the same (Ax) step size is used for both the hyperbolic supersonic flow 
equations and the parabolic turbulent kinetic energy equation. It should be 
noted that despite their differing mathematical character, both the super- 
sonic flow equations and the turbulent kinetic energy equation can be 

solved by a "marching" process, and that the simultaneous solution of the 
two equations therefore can be performed quite compatibly. 


In calculating the turbulent kinetic energy equation, the velocity pro- 
files which are used as coefficients are obtained from the SSFD solution, 
while the mixing length and the outer boundary condition on the turbulent 
kinetic energy are obtained from the original JETMIX solution. 


MATCHING BETWEEN THE INNER AND OUTER SOLUTIONS 


As described previously, the equations for the inner region require 
that the variations in entropy and stagnation enthalpy due to the turbulent 
shearing stresses be specified along each streamline before the solution is 
calculated. In the computational procedure, these variations are first 
estimated from a solution of the viscous boundary layer equations for the 
entire mass flow in the jet (i.e., both inner and outer flows). This viscous 
calculation also establishes the value of the stream function at which the 
flow becomes sonic and, hence, the location of the boundary between the inner 
and outer regions. Then, using the calculated entropy/enthalpy variations 
as a first approximation to their actual behavior, the velocity field in the 
inner region is recalculated by means of the two-dimensional (inner) equa- 
tions. (The velocity field in the outer region is left unchanged except for 
repositioning the streamlines so that they match with the streamlines in the 
inner region.) In principle, this sets up an iterative process which would, 
upon convergence, yield the "exact" solution (except that the viscous terms 
would be included only to the boundary layer approximation). Note that the 
iteration would proceed by assuming that a known static pressure field is 
impressed on the outer (boundary layer) equations. The boundary layer calcu- 
lation then defines an entropy/enthalpy field which is impressed on the inner 
(two-dimensional) "inviscid") equations which, in turn, redefine the static 
pressure field, and so forth. Nevertheless, for the problem at hand, it is 
assumed that the use of a constant pressure field in the boundary layer 
equations will give the entropy/enthalpy field to sufficient accuracy that an 
improved approximation need not be determined. The computational procedure 
is described schematically on Figure 275. 


The boundary conditions along the sonic line complete the matching of 
the inner and outer solutions. The viscous solution assumes that the static 
pressure is constant throughout the outer region and is equal to the ambient. 
At the matching (sonic) line, the static pressure in the inner region is 
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required to approach the ambient pressure. Thus, by requiring the static 
pressure to be continuous across the sonic line, and by obtaining the entropy/ 
enthalpy field for the entire jet from the outer solution, we are assured 
that all other flow and thermodynamic properties are continuous at the inter- 
face also. 


RESULTS FOR SHOCK STRUCTURE COMPUTATIONS 
Inviscid Calculations 


Some typical predictions of the aerodynamic flow field are given in 
Figures 276 through 279. The results in these figures have been obtained 
from completely inviscid calculations. Figure 276 shows the predicted shock 
shape and outer boundary shape based on the inviscid calculation. The shock 
originates near the outer edge of the jet due to coalescing characteristics 
coming from the curved outer boundary. The shock moves radially inward and 
eventually reflects from the axis of symmetry and returns to the outer 
boundary. The "> ;ular" reflection technique has been used in this case. 
Figures 277 and 2/8 show the composite result of a number of computations 
similar to that of Figure 276. In Figure 277 the distance from the nozzle 
exit to the point at which the shock first crosses the axis of symmetry is 
plotted as a function of pressure ratio, Pjet/Pamb- These results are for 
both "regular" and Mach disc reflection. Also shown on Figure 277 is a line 
representing the experimental data of Love, et al (Reference 168). The 
inviscid predictions agree quite well with the experimental results; however, 
this is to be expected, since the viscous effects don't start to have signi- 
ficant effects on the shock shape until after it reflects from the axis and 
nears the outer boundary. Figure 278 is similar to Figure 277 except that 
it shows the height of the Mach disc as a function of pressure ratio. Again, 
Love's experimental data are shown for comparison. The predicted Mach disc 
heights are only in fair agreement with the experimentally observed values. 
Nevertheless, the qualitative agreement is sufficient to show that the Mach 
disc model can be used as an artifice to allow the two-dimensional supersonic 
flow calculation to proceed beyond the point where the shock hits the axis. 


An overlay of the inviscid shock shape prediction of Figure 276 with a 
Schlieren photograph taken under the experimental portion of this contract, 
is shown as Figure 279. The agreement between the computed shock and the 
experimental shock is excellent, except for two points. First of all, the 
computed shock starts considerably closer to the nozzle than does the experi- 
mental shock. However, the computed version of the shock represents a Mach 
number jump of only about 0.02 until very near the centerline. A shock this 
weak would not be expected to show up on a Schlieren photograph. Secondly, 
the predicted shock does not turn normal to the flow near the edge of the 
jet. This difference is due to the neglect of the viscous effects in the 
outer region of the jet. Some calculations which do include the effects of 
viscous mixing are shown in the next section. 
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Figure 277. Intersection of Shock Shape with Axis of Symmetry. 
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Figure 279. Shock Shape Prediction on Schlieren Photograph, 


Turbulent Flow Field Calculations 


Figures 280 through 285 present the results of calculations based on 
the fully coupled viscous-inviscid analysis. Figures 280, 281, and 282 
show the effect of varying amounts of underexpansion on a jet plume. In all 
three figures, the total-to-ambient pressure ratio, PT/Pamb = 4.10. The 
static-to-ambient ratio, Pj/Pamb, is, however, different in each figure. 
Figure 280 shows the radial variation of both the total pressure and the 
static pressure for the ideally expanded jet, Py;/Pamb = 1.0. Here, the 
pressure is constant (and equal to the ambient) throughout the entire jet. 
Consequently, both the complete inner-outer analysis and the purely boundary 
layer analysis give identical results for this case. At the axial locations 
shown, x/R = 1.90 and 2.35, the total pressure near the centerline of the jet 
has remained at its original upstream value, indicating that the inviscid 
core is still present. Near the outer edge of the jet, the total pressure 
falls off quite rapidly due to mixing. This decrease continues until the 
total pressure approaches the static (ambient) pressure signifying that the 
velocity has dropped to zero. 


A slightly underexpanded jet (Py/Pamb = 1.6) is shown in Figure 281. 
This flow field contains a weak shock, which, at the axial location shown, 
x/R = 2.65, has just reflected from the axis of symmetry and is moving back 
toward the outer boundary. Because of the shock, there are now two sources 
of total-pressure loss. Since the shock has already reflected from the axis 
of symmetry, the flow in the center of the jet has experienced a finite, shcck- 
induced total-pressure loss as shown by the smaller shaded region. Between 
this region and the outer mixing-loss region (also shown shaded) lies a por- 
tion of the gas which is unaffected by mixing and has been traversed by only 
a very weak shock so that its total pressure remains equal to its upstream 
value. The radial variation of the static pressure is no longer trivial in 
this case as it was in Figure 280. The pressure near the center is relatively 
high, then drops across the shock to a below-ambient value and finally 
asymptotically approaches the ambient value at the interface between the inner 
and outer regions. The location of this interface, as well as the location 
of the sonic point, is also shown in Figure 281. 


The last figure of this series represents a still larger degree of under- 
expansion than did Figure 281. Figure 282 corresponds to flow from a con- 
vergent nozzle with sonic velocity at the exit. The pressure ratio is 
Pj/Pamb = 2.1. This figure again shows radial variations of both total and 
static pressures at each of two axial stations, x/R = 1.90 and x/R = 2.65. 

The rate at which the mixing region spreads with distance from the nozzle exit 
can again be seen, as can the increasing total-pressure loss due to shocks. 
Note the relatively large levels of static pressure variation, even though the 
underexpansion is still mild. Finally, note that the viscous boundary layer 
analysis by itself would predict the same flow field for all three jets in 
Figures 281 and 282, (assuming the impressed pressure were taken as the 
ambient pressure in all cases). Also note that the considerable effect of the 
mixing-induced total-pressure loss on the flow field would be ignored by pure 
inviscid analyses, 
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Figure 280, Cross-Stream Variation of Predicted Total Pressure and 
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The next two figures show the predicted shock-wave shapes for the jets 
of Figures 281 and 282. Figure 283 shows a comparison between the shock 
shape which is predicted by the complete inner-outer analysis and the shape 
predicted by a completely inviscid analysis for the jet of Figure 281. The 
inviscid calculation was made by specifying the entropy to be constant along 
all streamlines (except for shock losses). As Figure 283 shows, the two cal- 
culations give nearly identical shock shapes before and immediately after the 
reflection of the shock from the centerline. Indeed, the minor differences 
between the two calculations in this region is more due to small errors in 
calculation (stemming mostly from undesired interactions between the initial 
part of the mixing layer and the expansion fan at the nozzle lip) than from 
the physics of the problem. However, the sharply curved portion of the shock 
near the outer boundary is due to real effects. This sharp curvature comes 
about as the shock enters the strongly rotational flow region which has been 
created by the viscous mixing. As the shock traverses this mixing layer, the 
Mach number in front of the shock approaches unity so that even as the shock 
turns normal to the flow, its strength decreases until it eventually fades 
out. 


Also shown in Figure 283 are the outer boundaries of the inviscid calcu- 
lation (which, of course, is a streamline) and the "sonic" matching line 
(M = 1.1) which was used in the coupled analysis. Finally, the mixing region 
is shown by the shaded area. 


Figure 284 shows the predictions of the coupled analysis for the jet of 
Figure 282. superimposed on a Schlieren photograph of the first two shock 
waves for a jet at the same conditions. As can be seen, the agreement is 
excellent. Note that the curved portion of the shock in the mixing region 
agrees quite well with the Schlieren result, and that the predicted size of 
the "Mach disc" agrees with the photograph (although without the theoretical 
prediction superimposed - the photograph appears to show a regular reflection). 
Again note that, although the predicted shock starts much too close to the 
nozzle exit, it remains extremely weak until it nears the axis and so would 
not be expected to be visible on the Schlieren photograph. Finally Figure 
284 shows that both the predicted and the experimental outer boundaries show 
a point of inflection at about the axial distance from the nozzle exit where 
the shock reflects from the centerline. This inflection in the outer boundary 
is caused by the displacement of the viscous mixing region by the inner 
inviscid core of the plume. At the exit plane, the inviscid flow turns out- 
ward through an expansion fan. Then the axisymmetric effects force this flow 
to again turn and approach the axis (see outer boundary shape of the inviscid 
calculations in Figure 276). The superposition of an everwidening mixing 
region on these curved inviscid streamlines generates the inflection of the 
boundary. 


Figure 285 shows the predicted axial variation of mean and turbulence 
velocity on the centerline for the jet of Figures 282 and 284 (Pj/Pamb = 2.1). 
Also shown are laser velocimeter measurements of the mean and turbulent 
velocity distributions. What is noticed in both the analytical predictions 
and the data is that the mean velocity has a wide excursion (over and below) 
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about the ideal isentropic velocity for this nozzle, while the turbulence 
velocity distribution remains relatively uniform. On the average, the mean 
velocity distribution may be equivalent (in an acoustical sense) to the ideal 
velocity distribution. If the shock waves have little influence in turbulence 
amplification as observed in the centerline case, these two factors may 
combine to give a reason why shock-free and shocked flow acoustic characters 
on an overall basis are essentially the same. 
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APPENDIX 8 


ANALYSIS INCORPORATED IN NOISE 


Over the last two decades, a considerable amount of theoretical and 
experimental research effort has been directed toward investigating sound 
generating mechanisms in subsonic and supersonic jets. As a result, several 
distinctly different theoretical schemes have been advanced to describe the 
jet noise generation problem. Most of the schemes are intended to deal with 
the same general concept (that of a finite region of turbulent flow sur- 
rounded by a uniform, homogeneous, stationary, acoustic medium), while 
other schemes deal with the jet stability and nonlinear properties. 


The first scheme was introduced by Lighthill. He described the sources 
of sound in turbulent flow by means of an acoustic quadrupole distribution in 
a uniform medium at rest. Undoubtedly, Lighthill's theory has exerted the 
most profound influence on the subject. Ribner, Ffowcs-Williams, and many 
others have followed this method of attack and have made significant contri- 
butions to the theory. Mathematically, Lighthill's acoustic analogy has re- 
duced the aerodynamic noise problem to essentially the solution of the clas- 
sical wave equation with a forcing term. The fundamental result of the theory 
can be expressed in the form of the retarded potential solution: 


298 
a(o-Po) = paces - T, ay (ve bez), y a7) 


where: 


2 


Ty = sss + T4 + (p - a, 0) ee 
This equation represents the instantaneous radiated sound pressure 

p' = az (op - Oo) in terms of turbulent fluctuations in the jet flow. Many 

conclusions of the theory have already been verified experimentally and some 

of the observed characteristics of jet noise are explained by Lighthill's 

theory. For example, References 1 and 10 have demonstrated how Lighthill's 

model (modified for supersonic flow) can be applied to spectral predictions 


of supersonic jets. 


However, Lighthill's theory is not without limitation. One of the 
difficulties is that it does not effectively account for the refractive or 
coupled convective/refractive properties of sound. In this respect, Ribner 
(Reference 175) and Schubert (Reference 176) have attempted to offer some 
improvements. Mani (References 20 and 177) has illustrated that more 
realistic moving sources exist which can explain more clearly the influences 
of the jets shrouding influences on aerodynamic noise. 
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A second approach has been advanced independently by several authors 
(References 178-180) based on the method of matched asymptotic expansions. 
In Lighthill's fundamental solution (see equation 298), the instantaneous 
sound pressure p' = a, (9 - p,) is given in terms of the quadrupole strength 
Tjj, which involves the unknown density fluctuation. However, in Lighthill's 
acoustic analogy, the quadrupole strength Ti4 is regarded as a known 
quantity. The essence of Lighthill's approach, therefore, is that the 
density fluctuation in Tj; can reasonably be ignored. This approximation 
has been considered as rather unsatisfactory in some quarters and has led 
several investigators to examine the problem on the basis of matched 
asymptotic expansions. Using inner and outer expansions to describe respec- 
tively the turbulent and sound fields, they concluded that Lighthill's neglect 
of the density fluctuation in T;; indeed gives the first term of an asymptotic 
expansion for the density field. While higher approximations have yet to be 
generated, these studies have clearly illustrated that there are limitations 
in the acoustic analogy scheme. 


A third approach applicable to the jet noise problem was given by 
Phillips (Reference 21) on noise generation from supersonic shear layers. 
He formulated the problem in such a way that the effects of convection and 
variation in the local speed of sound are displayed explicity; whereas, in 
Lighthill's acoustic analogy, they were described in the source term. 
Therefore, an important issue for supersonic flow ~ the refraction of sound 
in travelling from its point of generation through velocity and temperature 
gradients into the ambient air is taken into account in this formulation. 
Furthermore, the problem of neglecting the density fluctuations in the 
source term in Lighthill's approach does not arise in the formulation. Pao 
(Reference 181) has presented a generalization of the Phillip's theory in 
which the range of validity has been extended to include the low supersonic 
and transonic ranges. 


A fourth method of attack was proposed by Liepmann (Reference 182). 
This scheme is to extend the principle established in steady viscous flow 
analysis, i.e., that the flow external to a body is that established in an 
ideal potential flow around the hypothetical body formed when the boundary- 
layer displacement thickness supplements the real body dimension. Liepmann 
proposed that the radiation field could be driven by an ideal boundary 
faithfully following the profile of the instantaneous displacement thick- 
ness. The concept is sound; however, all the emphasis is placed on the 
computation of the instantaneous displacement thickness - a very difficult 
task. Laufer, Ffowcs-Williams, and Childress (Reference 183) have made 
probably the most comprehensive attempt at solving this scheme. 


A fifth new approach is based on the concepts of the existence of large- 
scale instabilities in jet flows. From the earlier work of Landau (Reference 
184) on the plane vortex sheet problem, Sedelnikov's (Reference 185) eddy 
Mach wave concept based on instability waves in oscillating jet boundaries, 
to the more recent instability theories of Tam (References 80 and 186), it 
is becoming more possible that instability concepts could be useful in the 
understanding of the heretofore unexplored physical aspects of supersonic 








and subsonic jet noise. From numerous aerodynamic experimental investigations 
(References 11, 34, 46, 187, and others), the existence of these low fre- 
quency instability waves cannot be denied. However, to date there has been 

no clear cut acoustic experimental evidence illustrating by how much, if any, 
these instability waves influence the acoustic radiation field. 


Of all the techniques described, the basic turbulent mixing concepts 
which rely on the jet being composed of compact quadrupole sources (in the 
Lighthill, Ribner, Flowcs-Williams sense) modified by inclusion of the jets 
fluid shrouding, as proposed by Mani, offered the most unified aeroacoustic 
predictive scheme. Described below is an account of the basic turbulent 
mixing acoustic analysis contained in NOISE and how it can be used for predictive 
purposes. 


GOVERNING EQUATIONS 


Without restrictions, we postulate a general fluid motion in a continuous 
medium being governed by the conservation equations of mass and momentum and 
by the equation of state: 


d 4 > 
at * divepu) = o (299) 
— + div (puu) = div 7 + pf, (300) 
3 dp 
p =p (p,S)3; do = 22 dp a) ds (301) 
s P 
where: 
a me 
ap 
s 


f,, = Body forces 


t = Viscous stress tensor 
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Lighthill's original idea was to combine two equations similar to equations 
299 and 300 in order to derive a wave equation for the fluid density op. 
Ribner formulated an equivalent equation with p replacing p as the dependent 
variable. to do this, we take the time derivative of (298) and the diver- 
gence of (299) and subtract: 


oa 
ba 3 


2 a 
2 - Vp = Div Div (uu - t') (302) 
t 


2 
Adding a, V'p to both sides of (302) yields: 


97 2 2 > = 2 2 
oer ay Vp = Div Div (puu - t') + Vo(p- ay p) (303) 


2 
or similarily adding 1 3 p to Equation 302 vields: 
a2 at 


° 
1 92 2 = = 2 32 2 
— +2 _y pP = Div Div (uw - ct") +> -— > @= @ p) (304) 
“Zue 2 2 fe) 
a, at a, at 


Equations 303 and 304 can be expressed in index notation as: 


m2 a ne 
=p. 22. 80 a0 ou,u,-t',.)+ 9 er: (305) 
at2 *0 ax" 4 9x ; OX; ; ij ij ox,* (P a9) 
and, 
wv? 2 2 2 
3 3 9 ' 1 3 2 (306) 
a cf, eee (OU. | A tp = A. 
2 
at ox, OX, 9X, 2 ij - 2 se fe) 


oO 


Far from the flow region of the jet itself, the right-hand~side of equations 
303 through 306 must vanish identically leaving the well-known homogeneous 
wave equation, which, under homogeneous isentropic conditions, governs 

linear acoustics in a uniform medium of rest - the implied "acoustic 
analogy."" One can now imagine the medium as being at rest at any point in 
Space and interpret all the additional effects caused by the flow as a result 
of inhomogeneities which are continuously distributed throughout a limited 
part of the medium. By neglecting the last right-hand term of equations 303 
through 306, the sound attenuation and variation in the speed of sound are 
neglected. 


585 


GENERAL INTEGRAL OF THE WAVE EQUATION 


The formal transformation of the differential equations such as presented 
by equations 303 through 306 into an integral equation may be performed using 


the well-known Kirchhoff integral. For the pressure perturbation field we 
may write: 







Observer 


Source 
Pe. 





\ 
a 
_ 
By 

No 

pos 
a. 
x“ 
i 


i 
a 
a 
+ 

< 
— 
i 
= 


Sketch of Coordinate System 


p' (r,t) = (p-p,) s aff, Div, (T] dV, 
| ——__ 


Noise resulting from fluctuating shearing stresses 
1 3 [p] 9R 1_ {3p} aR 7 
+ —— —P_} + —- += —  )ds 
at] R 8n, ap Lae} on, o (307) 


Noise resulting from the effect of solid boundaries 
on the flow 


where the bracket, [ ], means evaluation at the retarded time t - R/a (the 


finite time for the sound emitted to travel the distance R_from the source to 
the observer), and the tensor T is the Lighthill tensor [puu - 1t* + 
(p- ao) Tf). 





Neglecting the influences from solid bodies, (307) may be written in 
index notion as? 


* 1 i ere 
p'(r,t) = ie dV (308) 
4n R dyydyy ° 


noting that, 


3 1L 3 1 1 jo... 
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and the integral divergence theorem: 


Is ee dV, “ff.-- ds | 


equation 308 becomes: 


2 
Sp 1) 3 ‘I 3 1 
p'(r,t) = mee ox, IE i) 3, * alle it, 1%, 
eee a 
“fesleg = 
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The first term on the right-hand side of (309) represents Lighthills 
integral for an unbounded flow, as an equivalent quadrupole distribution. 
The other surface integrals would contribute to back reaction of a solid 
body to continuous flow (the impact of sound waves from the quadrupole 
distribution on the solid surface to hydrodynamic flow). This development 
concerns the first term only: 


2 
eae oo Sees L (310) 
p’ (r,t) 4n Ni IT, 5] ars 


Carrying out the double differentiation under the integral sign, the 
instantaneous sound pressure due to the distribution of quadrupoles becomes: 
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where the dot denotes partial differentiation with respect to time, and the 
stress Tj; and its derivatives are evaluated at the retarded time t - R/ao. 
In this form, the far-field sound pressure term is Ty /R, the induction near- 
field sound pressure terms are represented by T44/R3, and Ty ,/R? terms are 
for the transition near~field. 


APPROXIMATION FOR THE FAR-FIELD TURBULENT MIXING NOISE 


To evaluate the acoustic intensity involves squaring (311) and time 
averaging the product. The evaluation of such a term is a formidable task. 
For the far-field terms, Lighthill pictured the turbulent flow divided into 
regions such that strengths of quadrupoles within any one region are cor- 
related perfectly, but strength at points in different regions are uncorre- 
lated. The extent, 2, of each independent quadrupole distribution is 
assumed to be eouskts the size of the energy-bearing Midy. The output of a 
single region of this kind is: 


xX.X 


a A 
4na2R? 
° 


ve [T,.] (312) 


p'(r,t) = ij 


Since the outputs of the volume elements Ve are perfectly uncorrelated, 
their acoustic energy intensities, <p'2>/p oa» must be added to give the 
radiation field. 


Therefore, the sound intensity for each uncorrelated volume is: 


2- 


or, 


where, 


The sound intensity including source convection, as discussed by Lighthill 
(References 44, 45 and 46), is written as: 


1 ~ ve wv (1-M cose)? +( 2 Feeds (313) 
Po a> R2 < ay 
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where M, is the convection Mach number, M, number, M, = U,/a 
° 


g\2 |-5/2 
The convection factor [a - i. cost)" + (=) | / 
o 


replaces the original Lighthill form of (1-M, Cos ey”. This convection 
term accounts for the neglect of variation in retarded time within an eddy, 
and allows Lighthills subsonic analysis to be extended for convective Mach 
numbers greater than one. 


FAR-FIELD ACOUSTIC MODELS AVAILABLE IN NOISE 


Lighthill Acoustic Computational Model 


In order to compute the quantities included in equation 313, approxima- 
tions are made (See References 1 and 187). The eddy volume was taken as 23, 
The quadrupole strength was assumed proportional to p“u"; the quantity», »%, 
was approximately by 1.lu' (p.0. A.L. Davies frequency - eddy - shear 
assumption). With these assumptions, the mean square pressure fluctuation 
due to an individual ring volume element (See Figure 46) is: 


8 Prac 
ee. g*a'a aM cose) 2 i 1l.lu' si 
P 4mR2 ° p9aa % Cc a 


oO 


where 8; is a proportionality constant determined experimentally: 


8 = ,A7B« 107° Hot Jets 


.956 x 10°72 Cold Jets 


Empirical Self-Noise, Shear-Noise Model 


The aeroacoustic relationship expressed by equation 313 describes what 
is commonly referred to as "self-noise" generation; i.e., noise generated 
directly by a turbulence-turbulence interaction. However, the directivity 
characteristics predicted by the self-noise model show some discrepancies 
with the experimental results. Reasons for this disagreement with experi- 
ment can be ascribed to refraction effects, quadrupole orientation, 
quadrupole source terms other than self-noise, or any combination thereof, 
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The term “shear noise“ was probably first used by Lilley (Reference 187), 
and it reflects the idea that the acoustic source term can also be described 
in terms of a turbulence and mean "shear" interaction field. Related work 
concerning the mathematical descriptions of there terms can be found in the 
work of Ribner (References 11 and 34), Maestrello and McDaid (Reference 188) 
and Csanady (Reference 26). Jones (Reference 30) showed that, for subsonic 
jets, the "shear-noise" acoustic intensity directivity character should be of 
the form I ~ (1 -M_. cos g)73, as opposed to the self-noise form of I ~ (1 - 
M_ cos 8)-5, . 


With concepts such as this, a model was formulated for NOISE. Refer- 
ence 1 and 10 document these concepts in more detail. The model was form- 
ulated as a composition of shear-noise and self-noise of the following form: 


rh 7 ata 
wir sean 9 C +2 4 
P 4m™R_ og, at Q (x Cyn y \xer . C,) (314) 
o “oO 
where: 
C = Cos* 9 E -M, Cos 6)? + ale 
xX a 
oO 
, a 2 2 2 for) 2 )-3/2 
C.- = Sin 6 Cos 6 CL = M. Cos 8) + ) | 
ys wk \ 2}-5/2 
= - t +(— 
Cy [a M, Cos 4) (3 ) | 


The factors X, Y and Z are empirically determined factors based on sub- 
sonic jet noise data. Tables 7 and 8 show these factors: they are functions 
of Strouhal number based on the ambient speed of sound (fD/a,), and of the 
jet angle 6; they are fixed separately for cold and hot jets and are 
independent of jet Mach number. 


Ribners Self- and Shear-Noise Model 


Ribner (Reference 3) also formulated a jet noise theory to calculate 
the relative contributions of self-noise and shear-noise cross coupling. 
He postulated isotropic turbulence superimposed on a mean shear flow and 
assumed a two-point velocity correlation separated in space and time. Ribner 
showed that the expression of sound intensity from a unit volume of jet is: 


590 


Table 7. Shear and Self Noise Table of 
Experimentally Determined Constants. 


a) Cold Jets 











£D/ag ae x Y} i, 24 Zo 
0.01672 0 I 3.18 3.18 7.94 7.94 
0.02105 0 1 2.95 2.95 7.38 7.38 
0.02650 0 E 1.45 1.45 3.63 3.63 
0.03368 0 1 1.49 1.49 Se FZ Sere 
0.04203 0 1 1.63 1.63 4.07 4.07 
0.05293 0 1 0.60 0.60 1.51 1.51 
0.06658 0 20 0.91 0.91 1.30 1.30 
0.08360 0 20 Osae 0.37 0.53 0.53 
0.10526 0 20 0.16 0.16 0.40 0.40 
0.13287 20 20 0 0.29 Pay 0.977 
0.16721 20 20 0 0.40 7.56 1.326 
0.21051 20 20 0 0.65 12.4 pa 
0. 26500 20 20 0 0.93 12.05 3.09 
0. 33368 30 20 0 1.03 13.4 3.43 
0.42027 30 20 0 1.42 18.4 4.73 
0.52926 40 40 0 1.44 15.8 4.79 
0.66587 40 40 0 1.44 15.9 4.81 
0.83607 40 40 0 Bras S502 10.7 
1.05255 50 200 0 2.93 30.3 9.77 
1.32875 50 200 0 2.63 2162 8.76 
1.67214 50 200 0 mee 26.1 8.41 
2.10511 50 200 0 2.92 30.1 9.72 
2.65004 50 200 0 2, OL 19.8 6.38 
3.3318 50 200 0 1.91 19.8 6. 38 
11.7527 50 200 0 aE 8 19.8 6.38 
60.606 50 200 0 1.91 19.8 6.38 
Sin2@ Cos26 a= 
Note: Cy, = [am cose)? ‘ i) where: 
“ ate ae 
, 
+ = 1 max. 
4 } Ys, 3 2 = 
Cos 6 Z — “max. 
Cy * 2793/2 
2 wh 
(1-Me Cos6)? + ( ) 
4o @< 6 
i ls max. 
2, swg\2779/2 aa: ee oa 
Cc, = [a-m. Cos6)” + Vea) | ~ — “max. 
o 
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b) Hot Jets 
£D/ao 


0.02000 
0.76268 
0.96016 
1. 20872 
1.52196 
1.91692 
1.91692 
3.03711 
3.81342 
4.80042 
6.06061 
7.62683 
9.60163 
12.08716 
15. 21961 
19. 16922 
24.14028 
30. 37113 
38.13415 
48.00817 
60. 60606 
76. 26830 
96.01634 
120. 87164 
152.19612 


Table 7. 





Shear and Self Noise Table of Experimentally 


Determined Constants. (Concluded) 





Yy Yo 
1.0 1.0 
1.0 1.0 
0.18 0.18 
0.53 0.53 

0 1.4 

0 1.65 

0 1.9 

0 LS 

0 3.3 

0 2.1 

0 Zen 

0 1.4 

0 1.4 

0 0.57 

0 0.54 

0 0.468 

0 0.456 

0 0.446 

0 0.144 

0 0.75 

0 0.96 

0 £.2 

0 1.5 

0 1.89 

0 2.37 
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secaaiech de 4 2 
t« (P=Po) vi. (. +B contd ¢ e's) ly eos 9)? ma 
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Self Shear Convection factor 
Noise Noise 


2,2) -3/2 
2 (315) 


where: 


A= /72 pw ‘ Pl 
o f fe) 
= he ee 2 5 3 
B = Po SO 0/8 1 a, (1 + a) 


/2 


o = .45 


If the characteristic radian frequency (wf) is approximated by the radian 
frequency (w) of turbulence, and w is approximated by 1.1 u'/2, the sound 
intensity can be written as: 


8 Zz 
2 eee 4 
E * aeae au-|a toe ZU (cos 8 + cos” »| E ~ M, cos 9)? 


2\ 2] -5 
4 =) /2 (316) 
(0) 


where: 
h = o/(1 + 3) 3/2 = .258 
— j 0.4 Hot Jet 
11.6 Cold Jet 


2 
The additional directional effect Con” 68+ cos 6), due to shear noise, is 
displayed. 


Lilley Turbulent Mixing Model 


Lilley (Reference 187) formulated a turbulent mixing model. His model 
is derived from the Lighthill theory. Lilley's work was divided into a 
contribution from self-noise in the turbulence, and the interaction between 
the turbulence and mean shear. The first part of the calculation relies on 


601 





Proudman's results, while the second part is developed from an approximation 
for 3p/3t covariance in incompressible sheat flow turbulence. The form of the 
acoustic intensity used in NOISE is: 


au 


2 6 s 

Eats oF 3. a aa 2 2. kaxio? Gm 
oe eee Sin Oo Ces. 6 Fiche cos: 8)" te te 

4a? Py R é ag 


where 6; is as given earlier. 


Pao Turbulent Mixing Shear Layer Model 


The Pao model (References 2 and 189) is based on the convected wave equa- 
tion introduced by Phillips in 1960. The convected wave equation itself is 
derived through the basic principles of fluid mechanics, and it is a natural 
extension of the Lighthill equation of aerodynamic noise. The linearized 
version of the general equation has the form of a simple wave equation in 
Lagrangian coordinates. The right-hand side of this equation contains four 
terms: a turbulent quadrupole, shear flow and turbulence interaction, entropy 
fluctuations, and viscous effects. If the flow field is free of shocks, the 
acoustic pressure fluctuation can be assumed to be decoupled from the entropy 
fluctuations. It is tacitly assumed in the analysis that all terms on the 
right-hand side of the wave equation are known quantities and the contribu- 
tions of individual terms can be considered as independent of each other, 
as with all the models presented. 


The Pao acoustic intensity (per unit volume) expressions contained in 
NOISE are as follows: 





2 ate 
M4 an \<5/2 
Pe C 3v2 i Vo : we a! . 2s (Ye) Eu —— (x2? <2) » SO 
P94, R42 AZ 2 _ M (1-M. Ccs 6) 
Po? L60V2r> vena? (O)a 13/3 says 
= 9 as 4 r(3 ) (cos #4) Fu 
Pu%o gr? a2 ¢ 
I = M 2 = 
(Be)13/3 [ate Cos0)* + at Mo? Cos a] ie Sla (318) 








cos 4 ory 


2 4 
Po . 3v2 nl? v 4 v8 a 2x) (7) F(b) 
F(O 
(ome) R2 Azg 1g (0) 
x .. 
. fam, cose)” + s Me" Cos 25 | -5/ Slb 


602 





ee cold jet 
«dy Rot, jet 
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ms 


1, self noise 
22 (Coa* Gack tou 86) (2) 
3 
2V2 og? M2 é 


ld (M 
M dy \A | 


2v72 Mow (yo, 0) a Cos 6 
2 





2 Vu [(1-Mc Cos 6)2 + a” M2 cos? @]1/? 


a i Self noise 


2, shear noise 
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% | a2 (1-Cos* ¢ 


“1 (1-Me Cos 8)2 - A2 Cos? 6 
Ay (0) = 0.35503 


F(b) -f eb*-u2 (u-b) 4 du 
b 


c 5 - A Cos 6 8 = 1 h 6 < ) 
os O * 1-M. Cos 6° cos ‘ when S, 


y 
Wlyo, 9) = ° w(d-) dy = Q/k 
K wu 
‘ag § 
tp 


2 


1 2 
ra je .) ‘ “ =| oA 1 
ay A (y) M M2 


The choice of solutions is obtained through a selection process defined 
below: 





Cos, = ea 5 6, < 1/23 0, =01fM,-AK1 
io 





we 


1 ul é wis = 
3 MomA 5 < 84 Rr hE M. A> = 
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The quantities tp» Q, and W(yo, @) are determined as follows: 


tp Computation: 


For a given source volume and far-field angle 6, determine tp from the 


equation (y = tp): 


Meee eee 
Cos 8 ¥_@) + AG) ( ») 


This means that, at a given angle 6, (6 < 69), there is a unique y = tp at 


a given axial location X. See sketch below: 
y 


Source Volume at : 


t 
P 


Slice of Jet i 
=| fax 


Q Calculation: 


y 
) 
Q -f Mq dy, note W(yo,6) = Q/Ky 
t 
P 
where Mq is given by: 
a 
a, _|cos_ 2 + Mc on] | 
ky A(y) M m2 


ky = - Mw Cos 6 


Spectrum Calculations: 


There exist two options for computing the spectrum. One is the way 
described for all the previously discussed turbulent mixing models; the 
second method is via Pao's spectrum calculation. The latter is performed 
as follows: 
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(S1b) 
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ht 
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poz (Ye) = 32 p2 a6 2 Fo! (1-M, Cos 8) 
re ere 

exp {-+ [ety + wtr|} (319) 
mar 1 Se Se 2 A 
p' Beate my" M lL A, (0) tan & (wo Ly Cos 9) 13/3 
a See a... eee 16/3 
=" er? a2 e@/3 ol/3 (1-M, Gos 6) 16/ 
Oo 

a“ © « 2 
* exp {2 fay? + (wl) | : (320) 


Pe a = 4 
pr? (y,w) _ 1 v4 M8 L ( = ~290 (Wo Li Cos 8) 
Sa f —) ON 


2 — 
hs 32x? a2 2 4, (1-Me Cos 8)5 
m ~ 9 
+ exp \- - (on + (wL,) |} (321) 
where: 
Lag 8 
. uj aB 
8 = width of mixing zone 
w = 2n St 


o = 2m St (1-M, Cos 8), Source Frequency 
Ly = 2/B 
k, = -Mw Cos 6 


= “a, M/A 


-b + 52 + 84%, Self Noise 
st == 


2 ss = 
one » +¥h2 + 4a2, Shear Noise 
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METHODS OF ACOUSTIC CALCULATION IN NOISE 
Sound Pressure Calculation 


The mean square pressure fluctuation due to an annular ring volume 
element of jet AV = 27rAx, as shown in Figure 46 of the text, can be 
written as: 


2 By : as 2 we - ae 
pave —y FY (1-M_ Cose)~ + { — 2nrArdx (322) 
4nR- a 4 ° * 
oO 


for the basic Lighthill model (similar type expressions are used for the 
other acoustic models discussed earlier). 


The radian frequency at which each volume element emits energy is 
approximated by: 


w = 1.1 u'/2 


where the turbulence velocity u' and the turbulent length scale (%) are 
determined for each local volume from the JETMIX and SSFD programs described 
in Appendices 6 and 7, The frequency, w, is the frequency in the eddy frame 
of reference. The frequency at the observation point, w,, is related to it 
through a Doppler shift: 


2 2 . 
w = (1-M, Cos6)” + =) W, (323) 
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The best correlation with data was found, however, by assuming: 
w= 1/2 us 

This amounts to assuming that frequencies in the moving frame of reference 
at u, are half of those received by the stationary observer. 

For the whole jet then, the mean square sound pressures from all circular 
ring regions combine to give the overall mean square sound pressure. The 
1/3 octave (or 1 octave) band analysis sums the mean square pressures whose 
frequencies fall into the range of a frequency band. This gives tne sound 
pressure level for the frequency band. Thus, the sound pressure level 
frequency spectrum of the jet is constructed by calculating the sound pressure 
levels in the various frequency bands. 


Acoustic Power of the Jet 


To obtain the acoustic power output from the circular ring of jet we 
may write: 


20 1 
Il -f f T. R Sinedqrde 
re ro) (324) 


TT 
‘ ann? [ I, Sineds 
oO 


or, for an incremental volume: 
T 


a2 

' 
(x, t,0)* 2 PB sinode (325) 
A J oO o 6 
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The geometry is defined by the sketch below: 


- Source Flement 







Observer 


The sound power of the jet for one jet element is obtained by integr- 
ation of the sound intensity over a large spherical surface enclosing the jet. 


Integrating across the jet results in: 


= 
1, (x, 0) = J ™) (x,1 54) dr (326) 


This represents a power spectrum generated by a slice of jet at an axial 
Station X. 


Integrating with respect to frequency gives: 


7, (x) = 1, (x50) dw (327) 


oO 


which represents the total acoustic power output from a slice of jet at X. 


For the entire jet: 


eo 


7 a ™ (x) dx (328) 


oO 


All of these quantities are available in the NOISE program. To illustrate 
some of the explicit formulations, again consider the Lighthill acoustic 
model: 
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= ai? 
—,2 V wee 1 2 inf 2 
PP = + ae (1-M_ Cos6)° + i (329) 
Po% P63 4mR . \ oO 








Then, integration of a volume element at x, r yields the following acoustic 
power per unit volume of jet: 





Wea 45 2 T 
re a! Sing dé es 
1, (154) et a re | : a2 5/2 dé andr Axx, 
°o%o fo) lam, Cosé) + os 
% (330) 
Integration yields: 
2=- 2 
Vio. F M -1 
m(er,u) * SAS m) Pearce Coed 
- + 1-M_)* + 
20 585 3M. [a M.) q | (1-M,) q 


M +1 1 2 
+ ares st lat - oe aur Ar Ax, 
+ P 
fas? + | ae ee (331) 


where: 


Thus, through simple summation, it is possible to calculate the power 
spectrum (72) generated by a slice of jet at x, the acoustic power (13) 
radiated from the slice of jet at x, and the total power (mp). 
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Mani Slug Flow Analysis 


Mani's model (see Section 1 of Volume II of this final report) represents 
the sound field produced by a convected-point quadrupole embedded in, and 
moving along the axis of, a round plug jet. The essential feature of this 
model is the incorporation of mean flow shrouding effects on the radiation 
of the convective quadrupoles, 


The starting point of Mani's analysis is the Lilley equation: 





Der! ab 3 -2 dar' D 3 -2 odr' 
ae TAGE Poa) Rae A 
Se x, 9x, 3X5 Dt ax, ax, 
dv 2 3 (u" sla 
=-2y — 9 (u' “ut ) y ll ¢ Si is: Sais | 
dx dx ,OX 2 kK Dt dx, dx 
2 1 aa es 


Mani's work deals with the second term on the right-hand side of the 
above equation (the self-noise term). The details of the solution are not 
given here, since they are completly described in Section 1, Chapter I, 
Volume II of this final report. Suffice to say that there exists two 
fundamental solutions; one basic solution for unheated jets, and a second 
solution for heated jets. 


Each solution is composed of an acoustic intensity expression consisting 
of quadrupole solutions which include the influence of fluid shrouding. The 
composite quadrupole solutions are formulated from six basic quadrupoles 
(x-x, x-y, x-z, y-z, y-y, and z-z), weiphted according to Ribner's 1970 
Studies. The basic difference between this model and Ribner's work is that 
the weak cross quadrupole contributions (i.e., of type xx-yy, xx-2z, vy-zz, 
etc.) are neglected, 


For both the unheated jet and the heated jet, the acoustic intensity is 
evaluated from the following formula: 


I «(mean square pressure of x-x quadrupoles) + 4 (circumferential 
average of mean square pressure of x-y or x-z quadrupoles) + 2 (cir- 
cumferential average of mean square pressure of y~-y or z2-z quadrupoles) 


+ 2 (circumferential average of y-z quadrupole). 


The far-field acoustic pressure expressions are given by equations 43-51 
of Section 1.0 of Volume II, for the unheated jet. For the heated jet 
solution, representative average estimates of jp/ir, 2p /ar2, etc. are incor- 
porated whenever a quadrupole singularity for the heated jet generates 
additional dipole and source-like terms. For the heated jet, then, the 











interference between different order multipole singularities is neglected 
(see equations 55 - 59 of Section 1.0 of Volume II of this final report). 


A recommended procedure for predictive purposes would be to use the 
Ribner turbulent mixing model available in NOISE, modified for the inclusion 
of fluid shielding by Mani's model. To perform the corrections for fluid 
shrouding, use Tables 9 and 10 given here. 


NEAR-FIELD ACOUSTIC MODEL AVAILABLE IN NOISE 


The near sound field of a jet can be considered as a region within 20 
to 30 diameters from the jet exhaust nozzle. More precise definitions are 
the induction near field at distances less than a wavelength from the source 
and the geometric near field at distances from the sources that are less than 
the order of the geometric extent of the source. In many situations, both 
induction and geometric near fields overlap each other and, for practical 
purposes, a region within 20 to 30 diameters from the jet exhaust includes 
both types of near field. 


The near and far sound field of a jet display quite different properties. 
For example, the familiar far-field sound pressure dependence on the inverse 
of distance and the simple relationship between the sound pressure and intensity 
i = (p= Po) 2/008 are no longer valid for the near field. In the far field, 
the distances from the observation point to different parts of the source 
distribution in the jet flow field are approximately equal. In the near field, 
the spatial distribution of sources along the jet flow becomes very important 
because distances are different from different parts of the jet flow to the 
observer. 
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Experimental investigations (References 13, 190-193) have provided some 
useful information on the sound pressure spectra and constant sound pressure 
contours of the near noise field of jets under particular operating condi- 
tions. To estimate near noise field, there exist semiempirical methods based 
on near-field noise measurement from full-scale jet engines (Reference 194) 
and based on tests from scale-model hot jets (Reference 195). However, there 
is definitely the lack of a basic understanding of the near noise field and, 
therefore, the lack of an accurate prediction procedure, 


Here, the method of calculation as described for the far-field acoustic 
approximations is applied to the near sound field. The formulations are 
based on quadrupole distributions studied by Franz (Reference 196). Extensive 
calculations with the models to be discussed may be found in References 78 
and 197. 


Discussion of Models 
Equation 311 was a general solution to Lighthills inhomogeneous wave 


equation for far-field and near-field sound due to a distribution of 
quadrupoles: 


me (x,-y,) (x.-y,) T.. t. Tv. 
Keon [ff Se et A, gg cig y 
R 


Ra . “e R? 
fe) fe) 
t Ps 
-s,,{ Se +—t dv 
ij 2 3 ° 
R ay R 


Under the assumptions that the turbulence is essentially steady and the 
distance R is large compared to the eddy size, Franz (Reference 196) shows 
that the mean-square sound pressures due to the distribution of different 
types of quadrupoles can be written in terms of the radiated acoustic power 
W as: 


2 4 
Sisco W a a 
: es 2 
= PY? - — ; (15 sino swos"6 cos >) 1+ 3 ; 5 9 r Z (332) 


4nR R w Rw 
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for a lateral quadrupole: 

















a W a 2 
re A Ss 4 1 
@- pF =——-5 G cos*é) }1 + + eb eee Se eer 
47R Rw \ cos 6 cos @ 
a . 
der ee: (» e es it ee (333) 
R w cos 6 cos 8 
for a longitudinal quadrupole, and: 
2 4 
nS 2 Fev 36 45 : 
(p - PY? = 5} I + 2 72 roe =< % (334) 
4mR \ R w R w 


for quadrupole radiation from an isotropic turbulence. 


These expressions were obtained based on a small flow velocity, so that 
the effects of source convection do not appear. For non-negligible convec- 
tion speed, the expressions can be written as (Appendix C of Reference 196): 

















2 
—_—_ p aw 5 2 a D 
(p - p , = i (15 sin’6 cos 9) ee + 2 (3 Q° cos 6 
oO 2 2 2 
4mR R w 
4 
2 #6 4 2 3 
=- 6 MQ cos6 + 4M }) +—— (8 Q cos @- 18 M O «cosd 
c c Raw? c 
Z = 
+ 9 M_” QD) 16 ’ (335) 
for a lateral quadrupole: 
2 
—— p_aW a 4 ‘ 
(p - p a —< we cos 6 + —2- S Q? cos 6 - 12 M Q cos 
fo) 2 2 2 c 
47R R w 
6 4 
y y 4 
- (4 - 9M * cust +6M_cosé + 1 + —2 9 a’ cos 6 
c c 44 
R w 
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- 36 M. Q? kegs - 6(1 -~ 9 M_” )o” ewes 


2 
+ 12(% = am.” ) QM, cosé + Lis 3 u_’) | e° (336) 


for a longitudinal quadrupole: 


2 
Po ane ew a5 ae -5 
{p- ae i 2 = Wi OP fa precemeacli u lly  r c (337) 
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for quadrupole radiation from an isotropic turbulence, where: 
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The factor C used here, which is obtained by Ffowcs-Williams for high- 
speed flow, replaces Franz' original form (1 - M, cos6é). The factor c-> in 
equations (335) to (337) also replaces c-® of Franz’ form to account for the 
increased number (C) of eddies whose sound arrives at the field point 
simultaneously. It is easy to see that, when M, is small compared to unity, 
both C and Q approach unity and equations (335) to (337) reduce to equations 
(332) to (334). Thus, equations (335) to (337) are valid for both low-speed 
and high-speed flows. 


Method of Calculation 


The mean square sound pressures given above can be considered as contri- 
butions due to a unit volume of jet flow. The idealized structure of a 
turbulent jet may be divided into several regions. The initial region consists 
of a potential core enclosed by a mixing region of strong shear. Downstream 
of it are the transition region and the fully developed turbulent region. 
Different parts of the jet may be considered to generate sound by different 
types of quadrupoles. In the present investigation, each type of quadrupole 
is considered as an acoustic model for prediction, assuming that the entire 
jet flow is represented by one type of quadrupole. This is followed by 
investigation of compositions of different quadrupoles for different parts 
of the jet. 
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To express the near-field sound pressure in terms of mean flow and 
turbulence parameters throughout the entire jet flow, the following approxima- 
tions are made: 


iy 


W 1 ies: u'/2 


where the terms are the same as those discussed earlier for the far-field 
noise approximations. The method of calculation for the far-field OASPL 
and SPL is also applied for the near-field calculations of NOISE. 


From extensive theory/data comparisons it was found that, at certain 
near-field locations, one particular model may compare better with measure- 
ments than another. References 78 and 197 describe these results. To 
improve predictions by use of individual models, composite acoustic models 
were also considered. To do this it was necessary to consider the structure 
of the turbulent jet as divided into several regions: the initial region 
(consisting of a potential core enclosed by a mixing region of strong shear), 
the transition region (downstream of the potential core), and the fully 
turbulent region. The different parts of the jet are considered to generate 
sound by different acoustic sources. 


Composite Model I 


The isotropic turbulence model is used in the potential core and the 
fully turbulent region (see sketch below). The lateral quadrupole, which is 
usually considered to be predominant in any region with large mean shear, is 
used in the mixing region enclosing the potential core and in the transition 
region which is approximately one core length downstream of the potential core. 
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Composite Model II 


The lateral quadrupole is used in the mixing region, and the isotropic 
turbulence model is used elsewhere for the jet flow. 


Predictions with these two composite acoustic models have been made for a 
Supersonic jet. Model I was found to be almost the same as the lateral quad- 
rupole model except at low frequencies (f < 1000 Hz). Model II, the isotropic 
turbulence model, was found to be dominant for f < 2500 Hz. 


Although these composite models were not found to yield much improvement 
on predictions, it was found that there exists the possibility of changing the 
predicted characteristics by changing the composition of the quadrupole models 
and, thus, through a better selection, possibly arriving at a better pre- 
diction. 


Using any of the models described above, it was found that, by replacing 
the term (wk/ag)2 (1.1 u'/ag)2 of the convective amplification terms by 
q2 = 0.5 Mc, improvements for the low frequency spectra were obtained. This 
option is available in NOISE. 


It was also found that a much simplified model for the near field could 
be obtained by using any of the above single or composite models with measured 
far-field spectra. 


Simplified Near-Field Prediction Procedure 


As can be observed from the earlier work, the near-field prediction models 
can be written in the following functional form: 


iz r 

aoe - 5 3 aay 
pt (r,u) =~ ( ta ata, Gy | FM) 

4mR R Wd R W 

where: 
P(w) = the far-field acoustic power spectrum 
F(6,M,) = the near-field directivity factors appropriate for any of the 
models described earlier 

Aj, Ay = the appropriate coefficients for the discussed near field 


Further, if the source frequency distribution is assumed as a unique 
function of axial location, then, by using a measured far-field power 


spectrum, the near field can be simply computed for any observation point. 
An appropriate source frequency distribution is (Reference 156): 


625 


where D is the jet diameter, uy is the isentropic exhaust speed, f is the 
observed frequency, and x is the axial location. The empirical constants 
are ao = 1.25 and @ = 1.22 for circular jets. 


EXAMPLES OF PREDICTIVE SCHEMES IN NOISE 


Extensive comparisons have been performed using the far-field and near- 
field acoustic models described above. References 1, 10, 78, and 197 contain 
many such examples. Included here are some of the results obtained. 

Far-Field Acoustic Predictions 

Figures 286 to 292 show the prediction of NOISE for the Lighthill and the 
Lighthill Self-Noise/Shear-Noise Models. Figures 293 to 295 show predictions 
for the basic Lighthill and Ribner models. 

Near-Field Acoustic Predictions 


Figures 296 to 302 show example predictions using the developed near- 
field prediction schemes. 
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Figure 293, Predicted Power Distribution for a Cold Supersonic Jet 
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Figure 302. Comparison of Measurements and Predictions by Composite 
Acoustic Models ( Continued ). 
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Figure 302. Comparison of Measurements and Predictions by Composite 
Acoustic Models ( Continued), 
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Figure 302. Comparison of Measurements and Predictions by Composite 
Acoustic Models (Concluded). 


656 











APPENDIX 9 





INPUT SHEETS 


: 
{ 
i 


657 














JET MIXING ANALYSIS Page of ___ 
CDC JET MIX 
General Flow Properties Sheet 1 
74 
NAME = 
ADDRESS = 
IDENT = 
input tape? output tape? 
; T or F TorF 
74 12 14 
JETMIX 
#Aa Problem Type 
(F) free jet (T) axisymmetric (F) single mixing region 
T confined mixer F plane, 2-D T coannular or coplanar 
MIX= »AXI= » TWO= 
Primary Jet Description 
diameter, in. 
DIAJ= Pe 


-specify one line of reference quantities/specify either TJET or VJET- 


Mach number turb. intensity (0.) velocity, fps 
MJET= »TIJET= »TJET= » VJET= ; 
total pressure, psia ® 
PTJET= » LIJET= »TJET= »VJET= ‘ 
Secondary Jet Description | 


diameter, in. 
DIAO= ’ 


-specify one line of reference quantities/specify either TJETO or VJETO- 





Mach number turb. intensity (0.) velocity, fps 
MJETO= » LIJETO= » TJETO= » VJETO= ; 
total pressure, psia 
PTJETO= » LIJETO= »TJETO= » VJETO= 


External Boundary Conditions { 


-specify static pressure and temperature/specify either Mach number or velocity- 
static pressure, psia,static temp., ° R, turb. intensity, Mach number, velocity, 


fps. 
(14.69594) (518.688) (0.) 
PE= ’ TE= , TIE= »ME= » VE= > 
Fluid Properties and Program Controls 
gas constant ft lbf/lbm ° R Prandtl number turbulent Prandtl number 
(53.34) (.72) (1.0) 
RG= »PR= »PRT= ; 


-data for Sutherland viscosity formula~+(air) 


SC= » TREF= » MUREF= acetates 9 
step controls, restart station, and transition region scale interpolation 

(.02) (.02) (T) 
CXPC= »CXTP= »RESTRT= » LTERP= ’ 
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JETMIX/Sheet 1 (back) 
NOTES: 


1. Supply the 3 prefix cards for identification (user name, address, problem 
identification). 


2s For no input tape file (01) or output tape (disc) file (02), set columns 
12 and 14 of the JETMIX card to F. For either an input or an output file 
set the proper column to T. 


as Parenthesized quantities denote initialized values. 


4. The confined mixer option (MIX = T) is restricted to a single mixing 
region (TWO = F). 


Oe For imcompressible cases, input MJET = 0. 
6. For free-jet cases, the static pressure PE is constant. For confined- 
mixing cases, PE denotes the static pressure at the discharge plane of 


the jet. The preceding remarks also apply to TE, TIE, ME, and VE. 


qT. The step-size controls CXPC and CXTP apply to the potential core and 
transition regions of the jet, respectively. 


* Ye 

ransition Po 

em EX = D, 
% ap 





In region I, AX = CXPC*b, where b = width of mixing zone. 
In region II, AX = CXTP*y 


8. The isentropic exponent is computed as a function of temperature using 
the following empirical relation: 


(-.070271) 


y = 2.23708T 800 < T ¢ 3600 
y=1.4 T < 800 
y = 1.254 T > 3600 


9. RESTRT may be used to restart a mixing problem at a given X or XD 
station. The value of RESTRT must appear in the X or XD table, and pro- 
files must be stored on tape at the RESTRT station. For continuation of 
confined-mixing problems using the free-mixing option (MIX = F), input 
the normalized restart station (XD/DIAJ). 


10. LTERP determines the variation of turbulence scale in the transition 
region. 
LTERP = T -- linear variation to fully developed region. 
LTERP = F -- exponential variation to fully developed region. 
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JET MIXING ANALYSIS Page of 
CDC JETMIX 
Species Diffusion Input SHEET 1A 


T -- Species diffusion 


(F) - No diffusion no. of constituents 
(3) 
DIFF= ’ NC= > 
(ATR) (c02) (H20) 
CN AME= > ’ > > eee 


jet stream mole fractions/external boundary conditions 


primary jet 
ALJ= ’ ’ ’ ’ ’ 


ALJO= > 9. > 


OSS SSeS 


ALE= > ? > 


fluid properties 
effective Schmidt number 


(.7) (.7) (.7) 
SCM= ’ ’ ’ ’ Se ae 
coefficients in polynominal for species molar C, 

a b c a b c 
cPC(1)= > > > > eS, 
CPC(7)= ’ ’ ’ ’ ’ ao 
CPC(13)= > ’ > > > 


Oe 


L. The program is initialized to consider AIR, C02, and H20 as constituents 
1, 2, and 3, respectively. These settings may be overridden by using the 
CNAME input. In this instance, the coefficients for the molar C, of each 
constituent must be specified. Note that this option may not be used if 
the NAMELIST input routine does not read hollerith data. 


2. Heat capacities are specified as a quadratic function of absolute tempera~ 
ture: 


C. = a+t+bT + eT” Btu/lb mole ° R 


i cal./gm mole ° K 
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JET MIXING ANALYSIS Page of 
CDC JETMIX 
Station Input Data Form Sheet 2 





Free-Jet Mixing 


X XPRN 

B(1)= ’ ’ 

? = 

? ’ 

’ ’ 

’ ’ 

’ ’ 

’ > 

’ ’ 

’ ’ 

’ > 

> ’ 

9 

Confined-Jet Mixing 

7 XD RD YCB XPRN 
B(1)= ’ ’ So Se 
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JETMIX/Sheet 2 (back) 


NOTES : 


Es 


For free-jet cases, the required input consists of the dimensionless 
axial stations (X = X, in./DIAJ, in.) at which a print of the jet 
properties is desired. 


The coordinates for the confined-mixing case (XD, RD, YCB) are input in 
dimensionai form. Select suitable intervals in XD to adequately describe 
the intended curve. If bits = 1, E+15 (junk word) appears in the lists 
of RD and YCB, the missing values will be supplied by linear interpola- 
tion against the independent variable XD or (if no subsequent data are 
given) the last value in the list is extended down the colum. 


Specify XPRN(1)=1 at those stations for which tabular printout of 

the jet mixing profiles is desired. If profiles are to be printed at all 
stations, specify XPRN(1)=2 only at the first station. Also, if profiles 
at a given station are to be saved on file (2), but not printed, set 
XPRN(1)=1. To save all profiles, set XPRN(1)=-2. 


The centerbody coordinate is assumed 0 if the YCB colum is left blank. 
If desired, these data lists may be input in "Free form" under their 
symbolic names X, XD, RD, YCB, and XPRN using FORTRAN IV Namelist conven-~ 
tions. If data are specified in both the B~block and in the Free form, 
the B-block data will take precedence. 


The maximum number of X or XD stations is 100. 


If no station input are provided, the program will use a set of X's, 
XPRN's which have been optimized for acoustic cases. 
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FLOW FIELD ANALYSIS 
SUPERSONIC TURBULENT JETS 








FILE MERGE 
Page of 
(CDC) SSFD MERGE 
SSFD/MERGE Sheet 1 of 1 
———$—<—<———— | 
output tape? 
wy or F 
SSFD J 
SINPUT 
Problem Description 
(T) axisymmet ric initial Mach No. Specific heat ratios 
F 2-D (1.05) (1.4) (1.4) 
AXISYM= ,XMACH= »GAMMA(1) = , , 
Program Controls 
oy eee San a Cee ae eM an es ae Page ce 
final x/D, stability parameter (1)print profiles & 
shock pattem 
(.5) O-no print 
XL= »STABIL= , IPRINT= ‘ 
SSFD Total Pressure Input Stations 
SIC Se eee Sh ees ee eee 
no. of stations 
(20) 
NPT= > 
x/D from JETMIX Tables (see NOTES) 
XPT(1)= ’ ‘J > > ’ 
EE Ce ee | ’ 
: | ’ 
’ ’ ’ > — 
MERGE z 
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SSFD 

MERGE/Sheet 1 (back) 
NOTES: 
Je SSFD always requires a JETMIX input file for execution. If SSFD is 





being run alone, using an input tape saved from a previous JETMIX run, 
supply the 3 prefix identification cards (see JETMIX input sheets). If 
an output file is to be generated (file 3), set colum 14 to T. 


If GAMMA is input, two equal values must be supplied. 


Parenthesized quantities denote initialized values. The only item which 
may normally require revision is STABIL. This input controls the step 
size used in the finite difference solution. If XL is not input, the 
final station will be taken as the JETMIX X/D where the potential core 
disappears. 


SSFD uses total pressure data from the JETMIX solution at the stations 
XPT. These stations are initialized to: XPT(1)=0, .1, .2, .3, .4, .5, 
aby (Mary. Zag cate, Sag Gels Deis Cees, Pedis oes, has PS. BS. 2, 20), 


The MERGE program is used to collate data from JETMIX and SSFD for input 


to the NOISE program. Include the MERGE T T card if the collated data 
are to be saved for a NOISE run (file 4). No namelist input are required. 
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JET NOISE PREDICTION 
Page of 
NOISE/Sheet 1 








NOISE T F 
SA 


General Input 


(2) JETMIX input file 
4 MERGE input file 


MFILE= 3 
source-receiver jet diameter scaling 
frequency shift factor ref. pressure 
C25) Cz) (.0002) 
SCALT= »SCALJ= , PREFN= 
- 1/3-octave band analysis 
BAND3= ; 
(0) fixed convected Mach No. convected Mach No. constant 
1 variable convected Mach No. C263) 
MC= ; CVMACH= ; 
(F) tint 2 acoustic intensity proportionality constant 
T -00425 cold jet 
-002125 hot jet 
BETAIN= ; BETA= : 
(0) cold jet (Eq = GEL a" )faq 
1 hot jet tT q@= aM 
JETTEM= , op rr 
Acoustic Models-Far Field 
(0) Lighthill self-noise model (F) ‘ 
1 Empirical self-+shear-noise a 
LIGHTH= LILLEY= n 
(F) : 0 - self-noise only O - shear-noise only 
r Ribner's model (.2577) (1.0) 
RIBNER= ,CRIB= ,SE= ; 
(0) self- +shear-noise 
(F) ' (F) Pao Press. 1 self-noise only 
Hs —— T spectrum model 2  shear-noise only 
PAO= »PSPEC= »MU= Se es 


Acoustic Model-Near Field 


- Isotropic turbulence model 

- Lateral Quadrupole model 

- Longitudinal Quadrupole model 

- Combination model using Lateral Quadrupole model 
in transition region 

5 - Combination model using Longitudinal Quadrupole 

model in transition region 


1 
2 

3 
NEARFD= , 4 


X/D where potential core disappears 
XCORE= ’ 665 





NOISE/Sheet 1 (back) 
NOTES: 





Le [If NOISE is being run alone, using an input tape from JETMIX or MERGE, 
supply the 3 identification prefix cards (see JETMIX input sheets). 


N 


Parenthesized quantities denote initialized values. These items need 
not be input unless different from preset values. 


as MFILE denotes the input file code for the aerodynamic data. Set MFILE = 


4 if aero input is from the MERGE program. 


> 


The proportionality constant BETA may be determined from experimental 
data. If input, set BETAIN = T and supply the empirically determined 
constant. 


aie If no acoustic model is selected, the Lighthill far-field model will be 
used. Only one model may be selected per case. 
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JET NOISE PREDICTION 

















Page of 
NOISE/Sheet 2 
Microphone Geometry Configuration 
\?/ no. of input angles 
NA= - 
angle from jet exhaust axis, degrees 
ANGJ(1) = > > > >. ’ > % > > ’ 


(F) sideline configuration 
T are configuration 


ARC= Fr 
specify either sideline distance or arc radius, ft 
SLINE= ' ARCL= Z 


Output Control 
specify T for profile printout at a given angle (ANGJ) 


NY OY YY. ? — ” 


ACQUSP(1)= ee ae ee RE ee ’ ’ ’ ’ ’ 


667 











NOISE/Sheet 2 (back) 


NOTES: 


ee eee 
OECeEECCECElElelee eel ll l__ 


1. 


Acoustic calculations may be performed at a maximum of 20 angles 
(ANGJ, degrees). 


Specify the microphone configuration as either a sideline or an arc. 
Also, specify the sideline distance or the arc radius in feet. 


The normal program output consists of a summary of the @ASPL, SPL, PWL, 
etc. at the axial stations of the jet for each angle. This output may 
be augmented by 1/3-octave-band PWL's. If detailed output is desired, 
ACSPAN and AC@USP may be used. Detailed profile printout will be 
obtained when ACSPAN(I)=T and any of the AC@<USP(J)'s are true. 
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APPENDIX 10 


SAMPLE CASES 
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* FREE JET PROGRAM « 
* AXISYMMETRIC * * Ne ISOTHERMAL * * COMPRE 
ae SINGLE MIXING REGION at 
NAMES DAVE FERGUSON 
ANDRE S= EVENDSLE (GE ) 
IDENT= NEAR FIELDeRLAT, GUAD, 
e INPUT AND INTTTAL CONDITIONS & 
EXTERNAL CONDITIONS JET DISCHARGE PARAMETERS GAS 
TE = 518.700 DIbJ = 4.55000 GAM = 
PE = 1.4696F 401 MJET = 1.3559 RG = 
VE = 9.000 TJET = 1858,833 PR = 
HE = 0.9000 PTJETS 4.25406 4+91 PRT = 
TIES VJET = 2781.000 Sc = 
TIJE TS 5.0000F #02 TREF = 
FLOW Js S.U7)RE=01 MURFFS 
* INITIAL PROFILES * 
N PSI U THETA 
£ Ge 0. t.aacono0ua $.ngo0qnane 
PP 3,4URSF e020 6.3447 H06 1.90000000 1.00000000 
3 6, A966F =02 2.53796 =05 1.00900000 1.90000000 
4 1.0345b=01 5.7102F 205 1.00900000 1.900090000 
5 1.3793 =01 1.9152t-04 1.90000000 1.900000000 
& 1.7243 +01 1.58 o62b=94 1.90000000 1.00000000 
T 2,0690F #01 2.ekuitenu 1.90000000 1.900090000 
BR 2,41 3RF 01 $.1089b<04 1.90000000 1.00000000 
9 2.75R6F=01 U.9606F e004 1.00999000 1.00000000 


10 3,1034F en} 
11 3, G4R3E*01 
12 3,7931E*01 
13° G,1379F Hn) 
14 4.4ReRFH01 
15 4, A2THE=91 
16 5S,1724E+01 
17 5,5177t-901 
18 5, RA21F HOt 
19 #.2069F*01 
20 6.5517b #91 
21 6,8966F=01 
22 7,2414F #0) 
23) 7,5R62b oN) 
24 7,9310F 01 
25) &®,2759tH01 
26 A,6207E01 
27) A,9655E*01 
eR 9, 3105b=91 
29 = 9,6552F #01 
30 9, A276E #91 
31) 1.0000b 400 
$2. 11,0172 400 
33 oO VUSF enn 


S.1392b 204 
6.3447E=04 
T.O7T1F ©04 
9,1 $nub=04 
1.0723F 205 
1.24SHF e093 
1.42 7ob=3 
1.602426 =03 
1.A33eF=93 
2.955 7E O08 
2.29NGE MOS 
2.537903 
2,TIKOF A008 
BLNTORE HOS 
B.3SHub 05 
5.60546F -03 
§.9654E=03 
4.2R90F<03 
4.,60254F-03 
4.97TUSE SOS 


1.00000000 
1.99000000 
1.99000000 
1.00900000 
1.90000000 
1.nNn00000 
1.90000000 
1,.00000000 
1.90000000 
1.00000008 
1.90000000 
1,.00000000 
1.90900000 
1.90000000 
1.009N0000 
1.00000000 
1.90009000 
1.99000000 
1.99900000 
1.090000000 


1.90800000 
1.90000000 
1.90090000 
1.00000900 
1.90090900 
1.99000000 
1.90000000 
1.90000000 
1.900000000 
1.09900000 
1.9N0000000 
1.90000000 
1.90000090 
1.99000000 
1.99000000 
1,900000090 
1.900000000 
1.90000000 
1.00000000 
1.00000000 


S.14SARE 04 ~75000000 041976150 
5.3004F @043 250000000 «63952 $00 
5.423356 -03 «25000000 «45928450 
S.47U3E 03 0.90000000 «27994600 


850 


SSIBLE 


a JET 


PROPERTIES 


1.40000 

$3. 34000 
272000 
1.90000 
*00000000.000 
400000000,000 
1,0000E 415 


Tl 


5.0909000E -02 
S.0000000E<02 
5.0000000E +02 
5.0000000E S02 
S.0000000b <2 
S.c00000N00E 02 
5.9009000F “02 
S.9090000F =02 
5.00000N0E=02 
§.0000000F -02 
S5.9000N0NE 202 
5.0000000F=n2 
5.0000000E=02 
5. 0000NN0E S02 
5.0000000F =02 
5.0900000E=02 
5.0000000F <h2 
5.0090000E<02 
5.09000000E 202 
§.0000000E -02 
5. 0000000F 02 
5. 00000N0F 02 
5,0000000F ene 
S.0000000E=02 
5.9000000E #02 
5, 0000000F #02 
5, 0000000EF -02 
5. 0000000F e02 
5.0000000E#02 
4. S501270E=02 
3.5355 339E-02 
2.5000000F 02 
0. 
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3 SLUdvl 1 =Nlavi 
ISTONSWINAd YNTILNIIKG 


x/O s 


2900 Y/0 = 


SIOEFLINE NISTANCE= 


LOWFR FREQ,H2Z 


11.2 
14,1 
17.8 
22.4 
28.2 
35.5 
4u,7 
56.3 
70,9 
89.2 
112.0 
141.0 
178.0 
224,0 
282.0 
355.0 
447.0 
563.0 
709.0 
892.0 
1120.0 
1410.0 
1780.0 
2240.0 
2820.0 
3550.0 
4470.0 
5630.0 
7090.0 
A920.9 
11200.9 
14100,0 
17A09,0 
22400.0 
28200.9 
35500.0 


12.5 
16.0 
20.0 
25.0 
31.5 
40.0 
50.0 
63.0 
80.0 
100.0 
125.0 
169.0 
200.0 
250.0 
315.0 
400.0 
500.0 
630.0 
800.0 
1000.0 
1250.0 
1600.0 
2009,0 
2500.0 
3150.0 
4000.0 
5000.0 
6300.0 
8000.0 
10000,0 
12500.0 
16000.0 
20000,0 
25000.0 
31500,0 
40000,0 


CENTER FREQ,HZ 


1/3 OCTAVE BAND ANALYSIS 


6.457 R/D = 
2.60 


14.1 
17.8 
22.4 
28.2 
35.5 
44,7 
56.3 
70.9 
89.2 
112.0 
141.0 
178.0 
224.0 
262.0 
355.0 
447.0 
563.0 
709.0 
892.0 
1120.0 
1410.0 
1780.0 
2240.0 
2820.0 
3550.0 
4470.0 
5030.0 
7090.0 
8920.0 
11200.0 
14100.0 
17800.0 
22400,0 
28200.0 
35500,0 
44700.0 


UPPER FREOQ,HZ 


6.857 


NPTS 


210 
264 
246 





ANGLE= 90.90 


SPL , OB 
0.0090 
12.3334 
26.0390 
14,9565 
29.6719 
40.4346 
47.6497 
58.2277 
71.6895 
75.5581 
81.3884 
65.7414 
90.4295 
94.9076 
99.6651 
104.3096 
110.1286 
113.8932 
119.642A 
124.1747 
126.8332 
130.1194 
131.2254 
131.1840 
131.6952 
129.9682 
129.8927 
127.4655 
123.0744 
122.uAuS 
118.7219 
116.4661 
112.2212 
101.9524 
74,4468 
9.0000 
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X/D = #13,693 


14/3 OCTAVE RAND 


Y/0 = 


SIDELINE DISTANCE= 


LOWER FREQ,HZ 


11.2 
14.1 
17.8 
22.4 
ek.e 
35.5 
44u.7 
56.3 
70.9 
89.2 
112.0 
141.0 
178.0 
224.0 
262.0 
355.0 
447,0 
563.0 
709.0 
892.0 
1120.0 
1410,0 
1780.0 
2240.0 
2820.0 
3550.0 
4470.0 
5630.0 
7090.0 
8920.0 
11200.9 
14100,0 
17600.0 
22400.0 
28200.0 
35500.0 


CENTER FREQ,H2Z 


12.5 
16.0 
20.0 
25.0 
31.5 
40.0 
50.0 
63.0 
80.0 
100.0 
125.0 
160.0 
200.0 
250,0 
315.0 
400.0 
500.0 
630.0 
800,0 
1000.0 
1250.0 
1600.0 
2000.0 
2500.0 
3150.0 
4000.0 
5000.0 
6300.0 
8000.0 
10000.0 
12500,0 
16000,0 
20000.0 
25000.0 
31500.0 
40000.0 


6.857 R/D = 
2,60 


14.1 
17.8 
22.4 
28.2 
35.5 
44,7 
56.3 
70.9 
R9.2 
112.0 
141.0 
178.0 
224.0 
282.0 
355.0 
447.0 
563.0 
709,0 
892.0 
1120.0 
1410.0 
1780.0 
2240.0 
2820.0 
3550.0 
4470,0 
5630.0 
7090.0 
8920.0 
11200.0 
14100,0 
17800,0 
22400.0 
28200,0 
35500,0 
44700,0 
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15,314 


UPPER FREO,WZ NPTS 


210 
284 
246 
234 
teu 
172 
195 
130 
161 

Bo 
144 
131 
434 

36 


39 





ANGLE= 153,40 


SPL . DB 
0.0000 
1.5605 

14.4717 
0.0000 
18.4729 | 
29.7013 
39.2610 
50,8691 
65,1495 
68.5694 
74,9417 
77.8628 
82.0509 
85.9428 
90.1270 
94.0747 
99.2437 
102.2861 
107.4037 
111.1046 
112.9323 
115.4782 
115.9907 
115.7544 
116,504} 
115.5696 
116.5754 
115.9823 
113.5279 
115,0344 
113.7349 
114.1018 
113.5339 
108.6402 
94.,84R4 
0.0000 | 
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APPENDIX 11 


PROGRAM LISTINGS 


902 





*0ECK MAIN 
i OWE wLAY(SStOLSE,0,0) 
PROGRAM MAINCINPUT,OUIPUT, TAPES, TAPEKSQ0UTPUT, 


* TAPEL, TARE, TAPES, TAPF 4) 
COMMON STUETLES TAPIN, TAPOT 
LOGICAL TAPIN, TAPUT 
CUMMOIN: /CPROGM/ PRUGM 
r INTEGER ProGM re ae aia a t 
COMMUN ZTROUKRLZ ERR, ENDJOK 
LUGIC4L ERR, ENOJOK 
i CORMON 4D AMOL/S NAME CO), ADDRESLO),- TITLE (A) IDENT (0) i 
Cc 
OIMFNSTON AACA) 
% INTEGER SSFO 
DATA JETMIXe SSFD MERGE NOISES 
e HIJA TALK SHS SFO» SEM! 266 » SHNOLSES 
c INITIALIZE se- PRINT CARD TNPUT 
ic pes ce esa sme —— ee Sa 
a _ERF = .FALSE, ae eee fe ee el Seer yee ee ¥ | 
tNOJOH= FALSE, : = = — 
WRITE (6,1) 
Y FURMAT(IHL,22x,28H* * C AR OD INPUT ®* *//) 
FNDEILE S | 
REWIND S | 
S FORMAT(1h1) 
. 6 FORMAT(BA10) is ee Li ae ee ee ee ae se 1 
10 READ (5,6) Ab . - | 
16 ¢ EOF +S 3} (5.58 | 
11 WRITE (6,6) AA | 
GO Tu 10 = { 
Cc 
a WEEE ACANG) QLUCKALE- NLA Choc, cea) CCCCSCSSC‘“‘RSNNNNNN’SSSN’’N’NNN’’”-—-—«~—S—(CsS™S™—~S~S< 
C 


15 REWIND S 
RE LD (5,20) NAME 
#EAD (5,20) ADDRES 
RELD (5,29) IDENT 

20 FORMAT( Lx, 6410) 

22 TAPLT = ,FALSE, 
TAKIN = ,F4LSE, 
RES (5,25) PROGM, TAPIN, TAPOT j 
Ir ( FOF,5) 1009, 50 : Bh ys i 

2S FURMATOCTX,AIDGL DG TX LI) ae 

30 WRITE (6.55) PROEM, TAIN, TAPOT 

BS FURMATCUML, LOX, LOE KECUTING PROGME,AO/IOX,OHTAPING, 

: Le, Sk, O4TAaPuTE,Le/) | 


{ 
| 
maces a a 
| 


oes ee ee a cemrente cnet a 2 - ‘ 


SELECT PROGRAM 
wile .2 Yo oa sear ae ae at aad eee, ae cee ee | 
IF( PROGY“.EG.SSFO ) IGNs2 
[6 ( PROG’. EQ MERGE J} [6023 
TFC PROGY LEG NOISE ) 16024 

59 GO TU (100,200,500,400 ) » IG60 


; 





oe —_— 


aon 


AMO 


aao 


“302 JF( TAPOT ) REWIND O 


£ JETMI xeeenen 


100 IF¢ TAPIN ) 
IF( .NOT.TA 
REWIND 2 
REWIND $ 


_ 102 CALL OVERLA 


1F( TaPNnNT ) 


erate ae 
REWIND 1 
POT ) GO TO 101 


YO7HSSNOTSE s+ 10, OHRFECALL) | 
ENDF ILE 2 


IF( ERR ) GO TU 500 


GO TO 22 


SStDarnene 


200 IF( TePIN ) 


IF¢ TAPOT ) 
CALL OVERLA 
If¢ TAPOT ) 


(FILE 02 MUST KE PRESENT//TAPIN=T) 
“REWIND 2. ae hk ae 
REWIND 3 
YCTHSSNGISE + 219, 6HRECALL) 

ENDFILE 3 


IF( ERR ) GO TO 500 


GOO 22 __ 


MERGE er aae 


300 IFC .NOT,TA 
REWIND 2 
REWIND 3 


CALL OVERLO 
IF( TAaPOT ) 
TFC ERR )G 
GO TO 22 


~ NOTSEatene 


G00 IFC .ANT,TA 
REWIND 2 
REWIND 4 


402 CALL MVERLA 


1 
1 
1 


IF( FRR ) G 
GU TH 22 


500 WRITF (6,50 
SOL FORMAT(S/2x 
* L6X,C1lHae 
Go TO 1002 
000 WRITE (6,10 
O01 FORMATOS/// 
002 STOP 
* END 


(FILES 02,03 “UST RE PRESENT//TAPINET) 


PIN ) GO 10 302 


YOTHSSNOTSE, $60, 6HRECALL) 
ENOFILE 4 
Qo TO 500 


“(FILE 02 OR O4 MUST RE PRESENT//TAPINET) 


PIN ) GO TO 402 


VCTHSSNUTSE,4,0,6HRECALL) 
6 10 500 = 


1) PROGM 
7 IHE RR = T,5%,6HPRUGME,ALOS/ 
RUN TERMINATION #%) 


01) 
JLOK COU a tataeeee END JON wear eanne) 
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_*DECK 


*DECK 


---——— 


CRLK 

KLOCK DATA 
COMMONER IITSZAITTS, HL ANK 
Compr ON/EILK/CSC 

DATA KITS, RLANK/1.6 415,10 
DATA CSC/1000./ 


FMP YC 


MX xU,Y4,NG,X5,Y5,N5) = 
DIMENSTONM XECLI VICE eXOCL oe VOCL I eKSCLI AV SCL) MGCL IAVACL I XSC1), 
x ¥SCt) 


-— 


~ 205, 
210 
215 
“220° 


2e5 
240 


245 


250 


255 


___ 260 


OO 300 L=1,NR 


GO_TO (205+210+215, 2200225), L 


NS = Ni 

GO TN 240 

NS =z N2 

GO TO 240 

NS 2 N3 

GN TO 240 
NS3NG 
GO TO 240 
NS=N5S 

DO 280 Ks1,NS 


“SUBROUTINE FMPYC(NR,CoXL eV oN, KorV2pNOpX eV 5pN5y 


GO TO (265,250+25572600265)y L 


YUCK) = CaxicK) 
GO TU 280 

YeC(K) = C#xe(K) 
GO TO 2A0 

Y5(K) = C#x3(K) 
GU TO eAR0 
Y4(K)=Cexa(K) 
GO TO 2000 
YS(K)=CaxS(K) 
CONTINUE 
CONTINUE 

RETURN 
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a ee! SI Te eee 


fecmimeaiicciacscant: lt 








| speck 
' 


' cMove 


t Ss 

| 

[ 

PO 

| 

} 

| 

ee 
20 

p25 
40 

L 401 

| 41 

Le 

. 7 ae 

[ 55 

yeu 
65 
AO 
100 


~TFCNG .LT. 0) NO==1 


MOVE 


SURROUTINE MUVE CNR XDA VL ONT PNDL oe Xe, %OrNA,NDC eX be S,N5,N05, 
x XG,VG,NG,NUUG KS, YS/NS,NDS) 


wowe FORTRAN SIMULATION OF 


“Ove (COC) 


OIMENSTON ALCL) VICE Ee XACLI VAC oe HSCL eV SCL KAUCL DA V4CT I XSCI)e 


x YSC¢t) 

0 100 L2i,NR - = 
GO TO (5410015420025), L 
N = JABS(N)) 

ND = N01 

IFC N1.LT.O ) ND=Wf 


= TABS(N2) 
NO = ND2 

IF¢€ N2.LT.0 ) NOZW1 
NS = N2 
,GO TO 4o 

N = [ABSON3) | 
NO = ND3 

IF( N3.LLT.O ) NDF] 
NS = N3 

GO TO 4Oo0 

N=JTARS(NG) 

ND=NDG 9 
NS=NG 

GO 10 40 

N=TARS(NS) 

ND=SNDS 

IF(NS .LT. 0) NOSo1 
NESE Oe ae ae ea 
K s i 

IF (NS)401,-100,41 
K = N 

IFC CK®.LE.0) UR, CK.GT.N) 


GO TO (45,50,55460065), L__ 


“VECK) & KECK) 
GO 10 80 
Ye(K) = K2(K) 
GO TO 80 
Y3CK) = X3(K) 
GO TO 860 eat 
Y4O(K)=Ka(K) | 
GO TO 80 
YSCRKV=EKS OK) 

K = K4#ND 
GO To 41 
CONTINUE 


eOR, NS,EQ.O0 ) GO TO 100 
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*DECK SETM 1 
iat SUBROUTINE SETMONR VAL EXD Nip XQeNeaXSbeN5,N4eNG-X5/NS5) #»&=©=©=©—™©. ce 
DIMENSION XLC UL) xeC1 eX SCL) X4CL Ie KSC1) 
DO 200 L=1,/NR 
BO Te (105-119,195,120,1°5), L 
105 NS = Nt 
GO 10 140 
110 NS = Ne 
GO TO 140 
115 NS = N3 
GO TO 140 
120 NS=N4 
i a TOS ERE. See ect aD A a Tigh eae =n a A ER BE NR ee ee en A, 
125 NS=NS 
140 09 180 K=1,NS 
GO TO €145,150-155,160-165), L 
145 x1¢(K) = VAL 
GO 10 180 
CUED CAL RCRA A Spee ool Ste ee SR Vee oe 9 eer Bian aye teem Ren es 
GO TQ 180 
155 x3(K) = VAL 
GO TO 180 
160 X4(K)=VAL 
GO TO 180 
_ 165 X5(K)=VAL 
180 CUNTINUE | 
200 CONTINUE 
RETURN 
END | 





Se eee, ee eee eet 


SS a eee Seems ¢ 








leDeCkK TAHPRT 


SUBROUTINE TARPRT(NAME, A,NA,NCGLI) 


CTARPRT eee COC VERSION 


¢ INPUT} 
re NAMB = ARHAY NAMF TO BE PRINTED 
c A = ARWVAY TC) RE RPRINTED 
re NA = NUMMER OF ELEMENTS irasoraie F eT ae Fe 
iC NCOL1 = NUMRER OF COLS, TO HE USED IN PRINT FORMAT 
rc $$$45 (MAXIMUM = NA ) 
Le TiTAB = LOC, OF FIRST FLFMENT IN & TO BE PRINTED 
C 
‘= Common /CBRITS / TAITS+ BLANK 2 Beth eS CRE Sgt os SET erie 
H COMMON /CTARPRS JITAR 
EQUIVALENCE (LSPACE,ASPACE) » (14,8) 
if DIMENSION FMT(12) 
REAL 112 
| INTEGER HOLL,HTEST ry 
_ DATA TAC1/0010000000000/ a a ag ee oe eee oe 
OATA (FMT (CS) Jz 12d/10KCI KTS 10H 10H” 
*10H elon 710K 710 
*10OH 710n 20H 710 
*10H V/s 
OATA 
a Fil, F4, Fo, ES, BCD, oct, I1e/ 
a KONE L2e1e OME 12.3, BHyFL2cHy ENV EL 2.4, BHpOXe bby OM, 8K, U4, GH,Ti2 — 
a/ 
ij DATA HMASK/()O0D0DNNNNCOOT7I7T77777¢4 » HTEST/H000000000000555555557, 
L * INMASK/U377777770000000000007 
DATA NINMSK/077770000000000000000/ 
mo "NEOL = MINOCNCOLI,10) a i na ie aa lb gl a ae pe 
NB = NA = F 4 SF 
i¢ WRITE WEADING 
WRITE (6/1000) NAME 
45 Tt = {[1TAB - i. SS A SE Tag RR Ga he eR a i a ae 
| I = 11 
{ T2 = 0 
re WRITE LINE SPACE 
i 47 WRITE (661002) ae Oe ee ee ee 
c LOCATION UF NEXT LING SPACE ITS GIVEN HY ACT #1) 


OIMENSTION AC10) 





ASPACF= ACI +1) 
IFC LSPACE,LE.L UR. LSOACE,GE.IBCI ) LSPACEH=LBCI 
LSPACEs LSPACEF+I@1 


GO TO 110 

(e “BEGitt LOOP FO DEF ENE LENE FQRMEE TU OO 
} 48 It zt 

50 A = ACT) 


| 
i 


SPECTAL NUMBERS 
NN s NINY“SK,AND,A 
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Se ee eee 


Ceca eetik 





eee 


+ 


ee Se ee 


—— 


ey 


(: T 

rc Ff 

ss 

rE R 

f 

bo. 

| 

le 

80 

}- 

L¢ I 
82 

oc 0 
aS 

90 


TEC TY.LEeNCUL LAND, IT.LELNB ) GO TO SO 


100 


, eee 


990 
1000 
1002 


(ent: 


IFC NN,EQ.NINMSK ) GO TO RQ 
EST FOR HOLLEKRITH (hHewence 
HOLL = RMASK.AND,A 





MAX.) 


IFC MOLL.FO.RTEST ) GO TO KO 
EST FOR INTEGER (AITS S$625820 FOR “AX 635 INTEGER 
LUATING POINT NUMBEXS NURMALIZEO 


IFC TR.EG.TKITS ) GO TO AS _ 


INTGH = INMASHK AND IB 

IFC INTGR.ER.O 2 GO TO Be 
EAL NUMBER ©© NORMALIZED 
8 = AKS(B) 

FMT(JI¢1)= ES 


IF( BALT.1.695 OR, B.GE.1.FA ) GO TO 90 | 


FMT(ITI¢1)= Fo 


IF( R.GE,1.E3 ) FMTICIIe1)=F3 
IF( B.GE,1.€5 ) FMT CII +1)=F1 


GO TO 90_ 


ee 
FMT(IT*1)= BCO 
GO 10 90_ 


NTEGER 
FMICIT#1)= 112 
ea 


CTAL : 

FMTCII¢1)= OCT 

3 SS, hk 

I = Il 

IF( I.GT,LSPACE ) GO TO 100 


le = Ie! 


WRITE (O,FMT) IT1, (ACK) KEIL,12) 


11 =] 

IF( I,GE.N8 ) GO TO 990 

IFC I.GT,LSPACE ) GO TO 47 
GaSe a te a or eee 
11TAB = } 

FORMAT(/2x,46) 

FORMAT(IH ) 

RETURN 


END 
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| s0FCK JETMIK 
OVERLAY (SSNOITSE+1,0) 
PROGRAM JETMIX 

€ MATNe= JETMIX GVERLAY(1,0) 
COMMON /TRUUKLZ FRR,ENDJOR 


LOGICAL ERR, ENOJOB 

{ COMMON /CNERR / BITS, CERR,OUMICS) 

LOGICAL CERR 

le 
re INPUT OVERLAY 

ic 
r 1 CALL OVERLAY C(THSSNUTSE, 1, 1,6HRECALL) 
L IF ( CERR ) GO TO 10 

& 
L¢ CALC./OUTPUT OVERLAY 

rc 
t 2 CALL OVERLAY(THSSNOTSE, 1,2, 6HRECALL) 
IF¢ .NOT.CERR ) GU TO 20 

c 
, 10 ERR = , TRUE, a tp ok ay, ae ee 
t 20 RETURN 

END 

r 
be E = ot = NE ee 
\ 

t 


eek ama | ie Ae in ie 
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"*DECK BLUCKT ] 
=" BLOCK DATA : : ; 
, *BLOCKT KLUCK DATA FOR TURRULENT PARAMETERS ‘ 


REAL MUL,MUEFFE,KCP,MUREF MACH 
COMMON /CPRUPS CT(10) 
COMMON /CPRORC/ CIP . CTS » CIM 





Cr | 
COMMON SPROPJTS ee s ae ‘ = ra a ; ) 
| a Pp » PRL 1 PRT » RGAS « Se 

* TREF » MUREF 7 MACH r BLE ’ ! 
i * REFL ef » CHI » RNURM = | 
| * RHO(200) » MUL(200) » KCP(200) ’ 
BS ___* MUEFF (200) » XLN(200) 4 DK(200)_ + RETURB(200) Se j 
) cs 
pce 
DATA 
L ® Cf2.597 9 PREZ. TOY «6 PRIZ(.S « RGAS/SS, 34S » 
' *% TREF/O.4 « MUREFSOUS- » SCC2LbiS « 
p—__ * CHI/.SB6/ » RNORM/110./ ‘ . ea aes a ae - 
| DATA CTA .254 S84 2dr O54 oe SBo kde eddy LBS eI red 
L DATA CYP/.475S4 4» CIM/.Cb/ 4 CTS/.23/ 

Cr 
| 


END 


5 eGR ammebiaiemic 4 
i 


*DECK GAMCP 


fe SUBROUTINE GAMCPCU TT,G4M,CP,RGAS,J1,J°2) © op ae ol ee nas Cam : 
CGAMCP COMPUTE GAMMA, CPence (P.H. HECK) 
DIMENSTON TT(1),GAM(1),CP(1) 
Ce 
C* VALID TEMPERATURE RANGES T.LT. 3600 
Ce 
ory 1 ROJ=ERGAS/7754, SP SS ia ara aaa * sae} nar Saat oe eS ie ‘ | 
DO 10 LeJ1,J2 | 
T=TT(L) | 
IF(T.LE.899.) GO TO 50 
IF(1.GE,.3600.) GO TO 40 
Ce 
Bt (L EP. 2570R/TAX, 07027) : — a= eas } 
69 10 10 
rte 
50 GAM(L)=1.4 
f co fo £0 
Lee 
r 40 GAM(L)21,254 + : - 
| Ce 


10 CP(L)=GAM(L) #ROJ/(GAM(L) #14) 
RETURN 
END | 








 .OECK GAM» | 
‘ FUNCTION GAMH(T) = i oT te a’ | . 
CGAMH FUNCTION GAMH (T)e-P.H, HECK i 
IFCT.LE, 500.) GO TO 10 | 
TECT.GE, 3600.) GO TO t2 i 
Ce ‘ 
GAMH=2.23708/T#*. 070271 A ane : SS pe J 
GO Taq 15 
10 GAMHs1.4 
GO TO 15 | 
12 GAMH=1.254 | 
t 15 RETURN 
Cf) Sei ene ee. See RO 3g) PR te ES Be 


a ai Goeeanee aati: means) (ee 
| 


*DECK INTEG , 
r “SUBROUTINE INTGCY,X,YOxI- IL, IU) 





—— = — _ a 





CINTG INTEGRAL OF YeDXe=TRAPEZOIDAL/UNEQUAL X S$ 
. DIMENSION Y(1)-X(1),YDXIG1) te : | 
Ce } 
“C*# EVALUATE INTEGRAL eee Y#DX wee TRAPEZOIDAL RULE i. oe cea | 
Ce teeta eeUNEQUSL SPACING [ 
tee debe nS Aw ee ee ee pets et ee ee 
[ 1 [T=Itet 7 ; 
2 [=Ie1 \ 


Ox=x(])=x(t-1) : 
TERM= Se CY (CL) + (Te1)) 
§ YDOXICL)=YOxIT C1l-1)4+TERM*0Xx 
FPCL.ET. WY Gh 16 Ss 
10 RETURN 


END 








#DECK JETPRP 

; SURROUTINE JETPRP 

CJETPRP PwUPERTIES OF JET 

LUGICAL SUPERT ° 

LOGIC4L ENTRY 

LUGICAL 4x] » XPRN » CMPRS , QJFT , TuRAS , CORE 
CUGICAL SUHSCIN, TECH 

LOGICAL ERR 

LOGICSL AMHTO 

REAL MJET ,» ME » MUREF 

WELL MACH 

REAL KCP,MUFFE,MUL 

CUMMON JJETT ANS 

e Iwg e O1AN a MIEFO —| BWETO »s VJEFO -¢ 

* PTJETO » TIJETO » NJO 

FEAL MJtTO,MACHO 

CUMMON /BCO4 U0, E00, THO 

COMMON /CTRL2Z 

* ENGEL .» SFI » MERGE , XMERGE » YMERGE » _ 
* SLUEPET » SLUPEO , CEPTE , CEPTO 

CUMMON /MEKGET/ MER, MERSTP 4» XMRG 

LOGICAL Tr.U, MERGE »« MEXR , MERSTP 

COMMON /PROPJ2/ MACHO, REFLO,YI+YO,MERGP 

LOGICAL MERGP 

COMVYON RATIOS AMKTO 
COMMON /INPIZ ENTRYL |. 
aeeeee TXPUT COMMON 





La 
COMMON /INPJETZ 
* O1AJ eo MJET o TJET , PTJET e VSET 
* TIJET ’ 
‘i << aia na | Sareea ot Te | cia am 2: | aan - ve 
‘ * Axl o NJ o NM , 
* *(100) » *PRN(100) , 
i * GAM 7 RG » PR o RRI 
i * SC » TREF e MUREF 
Ce 
"Ceaneee CONTROL COMMON ne i 
Ce 
' CUMMON /CTRLZ 
* NXTA 1 CMPRS » QJET » TURBJ e COEF (CIO) 
f * NPU “5 NPO”» OXC «© XU » X00 > 
i * DNSTOR(A00) 
a ess 
| Caeeeee PROFILE CUMMON 
,Ce 
| COMMON PROFS FSI (0200) -YD0C200),UN( 200), THN(200),FD( 200) 
Ce 
Caeesee CONSTANT AND ERROR COVMON 
[Ce 7 
| COMMUN /CNERR/ BITS » EXR , GO , GOJ » FOOT 
* 


f 


C#enene BOUNDARY CONDITION COMMON 





\® 
r CUMBMON /HC/ WEDGE o FFOGE o TENGE 
C 





Ceenene POTENTIAL CORE COYMON 


Ce 


C* 


CUMNUN /COREOS XCORE , CORE , CORSTP 


Ceenwae SCALFER (UNITS CONVERSTON) COMMON 


(* 


COMMON /SCALERZ SP , SV , SLEN 


(aneewane JET PROPERTIES COMMON 


Cs 


COMMON /JETZ 

* 8(100) » UC(100) » TOC190) » TIC(100) , 
# PTC(100) ,» WJ(100) a YLELOO) ’ 

* YSONIC(100) 

COMMON SZJETIZ FLOMI,TTO,NX,EJET 

COMMOR /JET27 TICCL190) 

COMMON /PROPJTZ 


* Pp + PRL y -PRIF + RGSS 7 S6E€ 

* TREFF » VSREF » MACH » XLC ’ 

REL ane o CHI "4 RNORM ’ a es ke 
® RKI( 200) » MUL( 200) » KCP(200) ' 

® MUEFF (200) » XLN(200) » O0K(200) » RETURB(200) 


COMMON EDGES YJETE » SFEDGE 


COMMON SMIXERS MEX¥,RO({00),xX0(100),CF,YR(100) 
LOGICAL MIX = 
COMMON /FLORAL/S MAXTT,SUPR,NIT,PSIN, YOO, YOC, 

* Py,P2,UCL,TOL,UPSTRM,CVG 
LOGICAL StPR,CVG,UPSTRM 
Caomyon SBCONVGZ YOD(100)-PN0100)-INDC(100), CHOKE, CHOKED 
LOGICAL CHOKE, CHOKED 
COMMON SOF ITZ CLSP(100) 
CiMMuN /STA2Z MACH2, TS2,SS2,V2,RH02,0PD0X2 
REAL MACH? 

COMMON /BHCMIX2/ GRADU, TH Miiw,RHOW,PTE,TTE 

KF AL MijW 

COMMON /THRST/NVO100) 

COMMON SMIXPRPS MAOCLOO) PVEA(1O0),-TE2(100), THC (100) 
RE BL “AQ 

CUMMON /THERM/S GY¥C(200),CP (200) 

COMMON /NUTMIX/ NxXURIG 

CONMON SCKODYS YCBC1O0) CLSPCK(100),YCB1 » UCLI 
COMMUN JZJETS/ STADD, NV, STATE 

COMUN ZINNAME/S NR, TABS) ,» ND » TAD(4) 

COMsO% /SCONSTFZ/ CUNY 

Cumbrin SYOF XI / LF 

LOGIC4L STADD,STATF 
OIMENSTON 1(200), STURI (200) 
DIMENSION ¥€200) 

OIVENSTON TKE(200),STUR2(200) 
FOUTVALENCE CTKE(Y)-DSTOR(661)),08TOR2(1),0STUR(601)) 
DIMENSION YMACH( 200) 

EQUIVALENCE CYMACH (1) ,-OSTOR(601)) 

EQUIVSLENCE (YC1),D5STO"(404)) 

EQUIVGLERCE CTCLI,0STORCIII,. CSTURT (1), OSTURC20t)) 
FUUTVSLESCE (lm, ober (o)) 
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| — ee 





EQUIVALENCE CLTAOe TAD) 
DATA NREGSIZ 
Ce PROPERTIES DIMENSIUALESS UNLESS OTmeERAISE NOTED 


1 IFC.NOT,ENTRYI1) GO TO 10 
ItwOJ = 3 
IFC TWO ) ITwOJz2 
Nx={ 
NV=ti 
OTOSTJET=TE 
xJ=x(1) 
1G0=1 
C# INITIALIZE AT 1eST STATION 
ST ae ‘ 
2 uC¢(1)=Uu0(1) 
TCC 1) STHD(1) 
TICCL)=TIJET 
PTECEI <1. 
TIC(1)=1. 
~TFCAMETO) TTICCL)=KITS 
IF CMIFT EQ, 0.) PTCCLISBITS 
YJCL)=YOCNPD) 
Cs EVALUATE MASS FLOW IN JET#eSTREAM FUNCTION 
Ce 

3 &xPst, 

“SE CARED eke Se. 
CONLIVIET* Coen Ee xP 
REFL=B(1)*C6 

99 CALL FMPYT(1,CO, YD, Y¥eNPD) 

CALL FMPYC(I-EJET-ED-TKE,NPD) 
CALL FMPYC(1,TJET, THD, T,NPN) 
~~~ €6LU SCSEE CUO, ETEOS, tex Ct) ; Pit 
CALL PRUOPICITNOS, TUR BI, Ie XJ Ye Te TKE, Le NPD) 
CALL GAMCPCT,GNC,CP, RG, 1 +NPO) 
DO S L=1,NPD 
RAD=1,. 
IF cAaxT) RAD=YDCIL) 

5 STOH1 (LY =.5*RHU(L) #UD(L) ®RAD 

6 PSI(1)20, 

66 CALL INTGC(STORI,YN,PSI,2,NP0) 

Ce 
Ce IF MPXER NOZZLE CASE, COMPUTE STREAM 
Ce FUNCTIGN CUINCIDENT &ITH OUCT WALL 
Ce 
1F¢.NOT, MIX) GO TO 666 
YOHYR (1) 
YI=YOC(NPD) 
RHORZTIFETORHOCLISTE 
DPSTE=.S5*RHOF ®VE/S(CEXPHVJET) & (VU Pet XPeV] #eF XP) 
PSIND=ZPSTONPD) *OPSTE 
POC1)=PE 
MAC(I)=ME 
VeE2(i)=ve 
TEACI ISTE 
YCO(1)SH1TS 
| THOCL)SHTTS 





Cr 
Ce 


ce 


Ce 


+e: 


ee 


| 


Ca 


1 
1 


cu 





boo #JI(1)R1. 
FLUWJSPSTONPU) CONE 
CPJ=GAMSHLES(GAM=}.)*GC/6CJ 
SUmSONS, TRUE. 
IF CME.GE, tt. OR. MJET .GE. 1.) SUKSMN=.FALSE. 
60 TO &760 


ENTRIES AT STATIONS OTHER THAN STATION 1 


19 VECNX)=sUud(1) 
TCONX) STHO(1) 
TIC(NY)SSORT LS, MEJETeGCJ*ED(1)/3.)/VJET 

11 YJICNX)=YJETE r c +; : 

YSETHYJETE 

TF (TAO) YSETFEDGE] 

IF ( NREG,NE.W2) ) NREGSI 

Ib (UD02),%F UN S)) NREGS2 

GO TO (12614),NREG 


POTENTIAL COWF REGION 


12 00 13 Lst,NPO 
TFcuD(tL).NE.UCL!) GO TO 15 
13 CONTINUE 
15 BRONX) =VSEToYO(L=1) 
G0 TO 20 
14 B(NX)=2,*eVJETE 


CL TOTAL PRESSURE 


20 IFEC.NOT, CMPRS) GO TO 22 
TEMPZTHOC TL) ®TJET ¥ 
VICZVJET*#U0(1) 
GAM=G6"C()) 
cCPsecr(1) 
GAMsGAMH(TL) 
TICL=TEMP +, S#VJIC AVIC/(GCUMCPJICEJSETRED (LI /CPU 
IFC.NUT, aMaTO) GU TO 1337 
TTIC(NXDSHITS 
GO TH) 1558 

387 TICCMNEVSCTICLHTE DAC TIOMTE) 

348 CONTINUE , 

XM J=ZVIC/SQRT(GAMAGC eRGATEMP) 

TTWJSTICU/ TEMP 

PRK=ME 

IF (MIX) PRSPQ 

POCEPKACL Ce. S*#(GdMel, )axMjen 2) ee (Gays (GAM=-1.)) 

 PTICONK)=(POCHHE SCH TUE T=PED eal 


LOCATE SONIC LINE IF SUPERSONICee® 


A760 IF (SUBSON) GO TO 29 


TMACH=,FALSE, 
SUPENTs, Thur, 
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: LkK=s2 Fe oe 
le = 1 
DU 211 L21,NPO 
SFCL GT. ft eAND, UVOCL).EO. VCLE) Lat 
TL=THO(L)*®TJET 
GAM=GAMH(TL) 
VSOR=ZSQRT(GAM*GC*RG*TL) 
YMACK(L)=UD(L) *VJET/VSON 
| IF(LZLT,NPD .AKD, YMACH(L) «EQ. YMACH(L=1))  LKEL 
| IFC.NOT, SUPERT) GO TO 217 
SUPERT= YMACH(L),LT. ft. 
217 1FCTMACH) GO TO 211 
i _____EMACHSYACHEL J GES. 
211 CONTINUE 
IF(SUPERT) GO TO 29 
IF(.NUT, TMACH) SUBSONS, TRUE, 
212 IF(.NOT,. SUBSON) GO TO e213 
YSONIC(NX)=0. 

2 Oe Fe SG coe ee Se es mee. 
213 YSONIC(NX)=YOF(1,.,YMACH,YD,LK,tPD@] ) 
IF(,.NOT, ERR) GO TO 30 
ERR=.FALSE. 

29 YSONIC(NX)SBITS 
GO TO 30 

22 PIC(NX)=RITS 





-—- 





TTC(NX)=281ITS 

C* 
és 
_C* EVALUATE MASS FLOW IN JET _ 


__._ 30 _ IF (NX.EO.1) GO 10 1000 
WJCNX)=SFEDGE/FLOwJ*CONI 
C* 
are 
Ce STORE PARAMETERS FOR CONFINED JET 
Cr 
1000 IF(,NOT. MIX) GO TO 1001 
“TF CSTADD) GO TO 1061 
IF(NX ,€Q. 1) GUO TO 946 
YCD(Nv)=YOC 
PO(NV)=P2 
1FC.NOT, SUBSON) INOC (NV) =1 
IF (CHOKE) INDC(NYV)=2 
~ MB2@(NV)=MACH2 a 
| VE2Z(NV)=SV2 
TE2(NV)=TS2 





Cc 
Ce TF MIxtR NOZZLE CASE, CALCULATE THRUST 
* 


946 TALE THRUSTC(NV) © ; ae Saas ait ae 


a IF FLOW CHOKED, CHECK AVAILARLE AREA AT NEXT STATION, 
5 IF LE. CURRENT AREA TERMINATE 
Ce 


IF(,NOT, CHOKE) GO TO 1001 
ALSYDD eae mPa vCr eet xP 








——- + — 


| 

t 

} 

| 

b 

| 

—— —— Se 
if 

\ _ 
| — 
| 

ee —_ 
I 


TF(NV,EQ, NXORTG) 


NVISNVOL 
XNKSKNCNVI) 


GO 10 1001 


CALL LCFITC XD, YReNXURIG,O, XNK,YONXe te 00eCLSP) 


CALL 


B2zYONK eek KPHYCHNY AE XP 


TF(AQ.LE, AL) STATF=,TRUE. 


“RE TURN 
END 


1001. 
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LOFITOXO, YCReNXURIG, 0, XN, YCHNX,160,CLSPCB) 


eens 





*DECK JTFILE 


SUISROUTINE JTFILE (NTRY, XX) 


CJTFILE STORAGE OF AEROMRMATA FILE FOR PLOT OR NUTSE 


— 


feiss ice 


Ce 


* 
* 


LOGICAL ENTRYL 
LOGICAL FOUND 
LUGICAL MCHANG 
LOGICAL AMBITO 
LOGICAL DRPRIN 
LOGICAL EGF ? FRR 
LOGICAL AKI » XPRN , CMPRS , QJET ,. TURKS » CURE 
LOGICAL ENTRYL 
REAL MJET » ME » MUREF 
REAL MACH 
REAL MOLE1 (200) ,MOLF2( 200) ,MOLF3(200),4ILF4( 200) -MULES(209), 
MOLF6(200) 
COMMON /RSTART/S NREG,RESTRI,NRESMIXPRE 
LOGICAL MIXPRE 
COMMON /CTRL2Z TwOOT(9) 
COMMON /OTFEOIZ 
NC » CNAME(6) , ALJ(6) » ALJUC6) » ALE(6) » 
SCM(6) » TCPRF(6) , HCPRF(6) » CPC(3$,6) 


pe cov~on /JOICTRL/Z DIFF , CNO(10) 


LOGICAL OFF 

COMMON ZMOLESZ 44%(200,6) 

COMMUN /RCMULZ ALEDGE(6), ALON(6) 

CUMMOUN SFILESZ GkGF,UPDF »NEWF p SCRE 

COMMON SFILKS CSC 

COMMUN /PARAM/ 
UC200)-T(200),TOTC 200), xX¥ACH(200),PTOT (200), TTO( 200), 
PTD(200),/0UMP9( 409) 

CUMMON /RATL[OS AMATO 

COMPON /MISC/ PM($0), PLOT 
CUMMON SINPIZ ENTRY 


COMMON /UMESH/ MCHANG,CK+OY1,NMSH o CAPC,CKTP,NRED 


Cxaeane TNPUT COMMON 


Ce 


Hes 


see ee ee 


COMMON /INPJETS. 


DIAJ » “JET o FIFTY » PTJET . VJET 
TIJET ’ 

Pe w WE « ME o TLE a TE 
Axl o NJ 7 NM , 

x(100) » KPRN(100) ’ 

U7 Os eae o RG , eR ‘* PRE ’ - 
sc o TREF » MUREF 


Craaaeee CONSTANT AND ERROR COMMON 


rcs 


Gn 


COMMON /CNERR/ BITS o ERR , GC + GOJI + FOOT 


Cr 
Ceaaeee ROUNDARY CUNDITION COMMON 
Ca 


COMMON /BC/ UENGE » EEDGE » THEOGE 


|Ceeeeee POTENTIAL CORE COMMON 


[s* 
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X COMMON /CORED/ XCORE « CORE , CORSTP 
Ce 


Ceeeeee SCALER (UNITS CONVERSION) COMMON 
Ce 

COMMON /SCALERZ SP , SV «, SLEN 
C* 


COMMON /JETIZ FLOKJ,TTO,NX,EJET 

~ COMMON /PROPJT/ 

* P e PRL + PRTT » RGAS « ‘SCC ’ 

® TREF + VSREF « MACH » XLC , 

® REFL,C+CHI, NORM, 

* RKI1(200),0U"13(600),xXLN(200),0UN14(400) 
COMMON /XPRIN/ DPKIN 
COMMON /FDATAS DUM7(4),NECSV,NRE 
COMMON /CPROPS CT1,CT2,CT3,CT4,CTS,CToO-eCT7-CTH8 .CT9,CTI0 
COMMONS PROF/ PSI(200)-Y¥(200),U0(200)-THD0(200),E0( 200) 
COMMON s/JETZ 

* A(100),-UC(100),1C(100),TIC(100), 

__* PTC(100)+WI(100),YS(100),YSONIC(100) 

COMMON /JET2/ TI1C(100) ; 
COMMON /CTRLZ 


# NXTA o CMPRS . GJET + TURBJ » COEF (10) ' 
* NPU , NPD »« OXC «4 XU » X00 , 
* TI0(200) « DSTOR(600) 


COMMON /TAG/ 

* NAME(10),TITLE(10)-IDENT(10),A0DRES(10),1DENTI (IO) i Sara 
Ce 

COMMON /MIXERS MIXK,PD(100),x00100),CF e+ YR(100) 

LOGICAL MIX 

COMMON /FLOBAL/ MAXIT,SUPBK,NIT,PSID, YOO, YOC, 
eee. _ PYeP2,UCL+ TOL, UPSTRMZCVG _ 
LOGICAL SUPB-CVG,UPSTRM A 
COMMON SACUNVG/ YCD(100)-P0(100),INOC(100), CHOKE, CHOKED 
LOGICAL CrUKE, CHOKED 
CUMMON /DFITZ CLSP(100) 

COMMON /STA2S MACH2,1S2,SS52,V2,RH02,0P0X2 
REAL MACH2 
~ COMMUN /ACMIX2/ GRADU, TH,MUW,RHOW,PTE,TTIE 

REAL MUR 

COMMON /MIXPRPS MA2(100),VE2(100),TE2(100),TWO(100) 

PEAL MAQ 

COMMON /THRST/ wv(100) 

COMMON /OUTMIX/ NYORIG 
~ COMMON /CHUNYZ YCH(100),CLSPCR(100),YCB1 » UCLI 
COMMUN /JETS/STANO NV, STATE 
COMMON /KEYS/ REVOLT) KEYAC HI) -ROOAC SL), KOOB(11) 
COMMUN /MERGETZS MER, MERSTP,XMRG 
COMMON /SUPER/S SUPC,SUPSTP,xXSUP 
COMMUN sCPRUP2S CTP,CTS,CTM oe! 
COMMUN /PROKJ2/ MACHUSREFLO,YI,YO,MERGE 
COMMON /CONSTF/ COM) 
COMMON /FILINO/S KREC,KXY 


EQUIVALENCE (CMOLF1(C1),ALK(1)) + (MOLF2C1),ALX(201)) ¢- 
CMOLF 301), ALxC401)) » TMOLF4(1),4L%"(001)) ’ 
ChCLE SOLD» ALXCHOND) 6 (MOLFo(1),4L"01001)) 


; 
si. 
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——— 


Ce 
} DIMENSION LEN2CLL) + NS2AC1O)LENTOS)NSA(Q) 0 0 ti , 
EQUIVALENCE CUR, VE) 
FUULVALENCE (CO, COEF (O)) 
NATTA FNTRYIT/STZ 
DATA NSA/IS, IMJ, 6,1KS/ 
DATA NS2B/S¢eHT To loeb Ly Ll eI Le 1002 Se Se QH SKS ny SSN t Sn ae 
me" DATA THLANK/ZLi202020202020/ 
DOTA TRROFE SSHAPROEE 
H DATA KXX1/2HXX/ 
Ce 
“Ce 
Ce NTRYE] — WRITE PROFILES AT STATION Xx ee SP a ee 
“Ce NTRYS2 WRITE CL PROPS. &N0 INPUT VARTARLES F aoe 7 ee 
, Ge NTkY=$§ HEAD Cl PROPS AND TNPUT VARIABLES 
Ce NTRY=4 RECLAIM PROFILE AT STATION XX 
Ce 
1 GO TO (10,190+120,200) » NTRY 
Ce 


10 LFC(.NOT,ENTRYI) GO TO 11 _ 
CALL FMPYC( 1, VJET,UD,U, NPD) : 
CALL FMPYC(1,TJET,THD,T,NPD) i 
KREG = 0 

11 ENTRYTS, FALSE, 

KREC = KREC#) ae 
KX = CSCaXxe.S es aie TY a6 
WRITE (3) RRECP REX, KREG, SUPD,SUPSTP,CORE,CORSTP»MER,MERSTPe 

® NPD, PSIT>Y,UD, THD, FO, TID, RHI, XLN, 

# Ue Te TOT + KMACHLPTOTs TID, PTO,MULF 1p MOLF A, SOLE 3 /MOLFU,MOLFS,MOLF6,J 
GO TO 1000 





“FOO REWIND 3 
WRITE (2) KxXX1,KREC, 
NAME, TITLE, TOENT, ADORES, IDENTI, 
TROOT . 
BITS,ERR,GC,GCJ,FOOT, 
DIAS MJET,TJET/PTUFT,VJET,TIJET/EJET, 
PE,VE,ME, TIE, TE, AXIL»NJ,NM, 
Ut »MIKPRE ,XLC,FLOWI,MERGE,NV,COND, ; 
CTV CT2CT Sp CTU CTS, CtorCT7,CTB,CT9,CIP,CTS»CIM,y 
# GAh,RGsPR, PRT GSC, TREF »MUREF,SP,SV,SLEN,OPKIN, PLOT, 
*Coe,MIu,CR,MOxIT, TUL, SUPRB , 
XPXPEN, Be UCeTCe,TICePTICewde VI eTIC, ; 
SOVEGREC (iar Sos ; = = 
BYCBR, XD, ROP YHA YCO PD WVe MA, VEC, TEA,NXTA,T, 
NC, CNAME PALS, 4L50,4LE SC, ,OLFF 
OO 101 TJ=1,KREC 
READ (3) JRECRXX, KREG, SUPD, SUPSTP,CORE,CORSTP,MER,MERSTP, 
&@ NPD PST e¢ Ye UDe THO-ED,- TID, RHO, XLN, { 
® Ur Te TOT XMACH,PTOTS TIO, PTO, MOLE I, YOLFO,4OLE3,NOLFA,YOLFS,"OLF 6,5 a 
WRITE (2) SREC KEK KEG, SUPD, SUPSTR COKE ,CURSTP AMER, NERSIP, 
® NPOPPSL se Ve VOr THO,EDs TI Deki, XL, 
® Up Te TOTS XMACKHSPTUT6 TID, PTO MOLE L eMOLF A, MOLE 3,MOLF4,“ULFSsMOLFOsS \ 
10! CUNTINUE 
GO 10 1000 Pa NaF tes coal 


»eeeeee 


s<ieka inane na aioe as 





 caaemeiinai Rite mama aman mamas 


120 RE&D (Lf) KKKE,KREC, 


200 


210 
211 
220 
eel 


1090 


NAME, TITLE, LDENT, ADDRES, IDENTI, 


TROOT 


’ 


BITS,ERR,GO,GCJ,FUUT, 


PEEVE MEsTIE STE, AXT NS, NM, 
UE MI KPHE ,XULCeFL EMI MERGE ,NV,CON, 


CTIVCTOLCTS ClY,CIS,CT6sCT7,CTH,CT9,CTP,CTIS,C™™, 


. 
. 
* 
* DIDI MJETSTIETSPTSET, VIET TIJETS ESET. 
* 
. 
e 


® GAM,RG,PK,PRT,SC,TREF pMUIRER, SP, SV,SLENSDPRIN,PLOT, 


aCo,MIX,CReMAXIT+TUL,SUPH , 


eX, XPRN,B,UC ATC TIC,PIC,HJ+YI,TIC, 


* YSONIC 


#YCK KO, RO, VRe VCD PPO, WVeMAP, VEO, TEA NXT AST og 
#NC, CNAME, ALJ ALJ, OLE, SCM, DIFF 


GO TO 10 


KRES 4 


, 


00 


CSC#xK+,5 
DO 210 I[J=1-/KREC 
READ (1) JRECAKXX, KREG, SUPD, SUPSTP,CORE »CORSTP,4ER,MERSTP, 


cians eacaipees eases r] 


& NPD, PST,Y,UDsTHD,FED, TID, RHO,XLN, 
& Us, TP TOT, XMACHLPTOT,TTO,PTO,MOLFE 1 »MOLF2,MUOLF 3,MOLE4,MOLFS,MOLFO,J 
IFC KXX.EQ,KRES ) GO TO 220 


CONTINUE 
FRR s 


WRITE (6,211) XX 
FORMAT(THI,//72X+LOHSTATION X=-F10.6,2eX, 11 HNOT UN FILEZ/) 


etRUE. 


GO TO 1000 


WRITE (6221) XX 


FORMAT (C1H1+4772ExX, 20H RAJETME XK RESTART x=,F 10,677) 
MIXPREZ,TRUE, 


IF (MI x) 


RETURN 
END 
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At 


“#OECK LCFIT al 
; SUBROUTINE LCFIT(X,Y,NPTS, NEW, X¥CeYCeNXCOND, C) 


ClLcFIT INTEGRATE OR INTERPOLATE SE Crys * 

C INTEGRATE Uh INTERPOLATE USING A PARASOLA WHOCH PASSED THROUGH THE [TH 
ne AND (J3¢1) POINTS BUT MISSES THE (et) AND (lee) POINTS CIF THEY EUTH 

Cc EXIST) SUCH THAT THE SQUARE OF TRE DEVIATION JS A MINIMUM, NOTE 

re THAT [ IS GENERALLY SELECTED SUCH THAT ; a. Fa 
C PCH LE KE UT MELEE) 

hs THE EQUATION FOR THE PARAROLA IS 

ic Yey(I) = He(Xex(1)) + Ca(K-xX(1)) #2 


DIMENSION X(10),¥C10)- XC(1O0)-YCC10)4 CC10) 
LOGICAL NEW ; af 














c INPUT= 

€ Xe ¥ PTS, ON CURVE 

C NPTS NO. UF X 

c NEW a «FALSE. IF HE "C™ ARRAY OF CORFEICTIENTS 39 

Serr nase ~AVATLABLE FROM A PREVIOUS ENTRY a ea <i er eo 2 

¢ xc LIST OF X AT wHICH CALC 10 RE DONE 

Cc YC(1) INTEGRATION CONSTANT IF WO=*1 - 

€ NxC NO. UF xC 

Cc NOD =0 10 GET COORD, =1 TO GET 1ST DERIVATIVE, 

Oo EST FOR INTEGRATION Pe Mele nS nies es EE, 

C OUTPUT 

€ Yc COORDINATE OR DERIVATIVE AT XC ar 

Cc YCCIC)= INTEGRAL CY*0x) FROM XC(1) TO XCCIC) WHERE IC=2,NxC 

me Cc = ARKAY OF (NPTS=1) COEFFICIENTS 

C  NOTES- — ss = Ts a ‘x KG ee Be 

Cc FUR INTEGRATION “xC" MUST BE IN THE SOME ORDER AS "xX", FOR INTERPULATIUN 

Cc "xX" WAY BE IN EITHER ASCENDING OR DESCENDING ORDER, 

C NO SPECIAL ORDER IS REQUIRED 

ce. COMMON /SELSPE 7 J}. = _ 55 = a 
LUGICAL WITHIN 
OATS BITS/I1.E 157 
IF(.NOT,NEW) GO TO 90 
N = NPTS#1 

"C EVALUATE CUEFFICIENT C(I) ae ae ee 

[ 0O 30 121,N 
x1 = x(1) 
YI = Y(I) 

be IN ERE OEE PR he Nae ee See Oy, Oe ee 
vot = 0. 

| TOP # 0. 

C(1) = 0. 
Y3 = Y(I¢l)-vI 
TPCT GLE. 1 oOR, YOCL91).EG.AITS)-GO TO 27 
x! = x(lel)exl as eee —— —S f 
M130 = KC Le} )ex(bet) x! : ; ‘ 
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4 


-~+— +- 


: oom 


Cc 


100 WITHING ,FALSE, 


“$1? GO tO 900 


TOP KpeCvysexte(vCle1)-Vryexd)exgs 


BOT = KLexiaxi sexy saxd 
ar FECY.GEN .ONe VOCLE2) EO.8£7S) Go 10 28 
271 xa = X(T ¢e)yexl 
xu$ = x(Teeyex( tet) 
TOP = TURP © K4e (CY FAGe (VT e2vevy Tp axsy anus 
BOT = ROT © KUAKUaKUde xd $axd 


28 TF (BOT.NE.O.) CCI)S-TOPsa01 
30 CONTINUE 


BEGIN INTERPOLATION LOOP FOR xC(IC) IC=1,NXxKC 
90 | = MAXOC1,/MINOCIZN)) 
IFC(ND,EQ,(e1)) T=! 
~ SGN = SIGN( 1.) XCN@1) @XC1)) 
Ic = 
GO TO 160 


LOCATE APPROPRIATE INTERVAL 


NCUUNTS N 
102 IF (NCOUNT) 119,103,103 
103 NCOUNTS NCUUNTe1 


XI = x(1) 
_ xD = xC(1IC)exI 
IF(N) 104,120,104 
104 IF(SGN*x0) 105,107,110 


F.LT.O. (F IS Tee FRACTIONAL POSITION IN THE INTERVAL) 


105 IF CT EQ. Y) GO TO 120 
IF(ND.EQ,(21)) GO TO 119 
I = I-1 
GO TO 102 


F.E0.0 
107 IF CxKCT*#1).NE.xX1) GO TO 120 
GO TO 116_ a y OR, Ce Ro. 
F.GT.0,. 
110 TF C(SGNaCXCCIC)*X(1+41))) 120,112,114 


FeEQ.1-20» CHECK FUR INTEGRATION AND DOUBLE POINT 
112 TFCCNDLEQ.(°1)) OR. CIELNEN AND, XC 1+1) 9 x(Tte))) 60 TO 120 


F.GT.1.0 
114 ITFCT.EQ.N) GO TO 120 
IFCND.EQ,(#1)) GO TO 125 
116 1 = I+t 
GO TO 102 


PRELIMINARY CALCULATIONS FOR INTERPOLATION OR INTEGRATION 


120 WITHIN=, TRUE. 


125 «3 2 XCLO1) ox (T) 
YI 2 VCE? a . 
2 0, 


6 


924 


INCREMENTING 


Cc! > C(1) 
TFEM.GT.O ARO. X3CNE.O.) B S C¥CESI2=¥ER723 = Chex 
129 IF(ND) 159,140-141 


re NDz\1, INTEGRATE 
130 TFC.LNOT.aITHIND xXO=K3 
$1 = (YI # Ch872, ¢ C13, #x0)*xXN) aXO0 
IF (WITHIN) GO TU 155 
Cc "I" IS REITING INCREMENTED TO Finn APPROPROATE INTERVAL, HENCE, 
c CUMULATE THE INTEGRAL GF THE [Tm INTERVAL, 
Sa = $4 + Si 
GU TO 116 
Cc APPROPRIATE INTERVAL FOUND, x(T)-x¥C(1C) =x lel) 
£35 IF CIC EQ. 1) SASYCC IC} <S1 
IFCIC.NE.1) YCCIC)=SAeS] 


GU TO 150 

: & ND=0, INTERPULATE FOR COURDINATES 

- 140 YCCICI= YI + (B+ CI*XD) exp | ea ss See 
GO TO 150 

re ND=1, FIRST DERIVATIVE 

141 YCCIC)= B + 2.*C[*#XD 

GO TO 150 

2s Ce EE (5) Ear eee Seen ec anaes Beam ee 


160 IFC(NXC#IC) 900,100,100 


900 RETURN 
ENO 


r 


a 


925 


SNDECK PROPS 


SUBROUTINE PROPJCTHOU,NTURB KEG Xe Ye Te IKE JSI, JO) 


CPROPJ PROPERTIES OF & LAMINAR OR TUKAULENT JEP 


Ce 
Pes 
Ce 
ee 
Cs 
res 


Cs 
Ca 
ried 
Ce 


a 


Ce 
Ce 
Ce 
Ce 
Ce 
Ce 
Ce 


Ce 


Ce 


Ce 
Ce 
bee 
Ce 
ea 
C* 


Ce 


COMMUN /XPRIN/S DPHIN 

LOGICAL DPRIN 

INTEGER Tau) 

LOGICAL NTURK 

REAL MACH,MUL,MUEFF ,KCP, MUREF 


TwO sf SINGLE JET 
TeO =2 COANNULARK/COPLANSR JET 


NTURBEF LAMINAR PRUPERTIES ONLY 
ZT LAMINA ANU TURBULENT PROPERTIFS 
NREG 21 MEXING REGIUN (XLT. XLC) 
NREG s2 TRANSITION REGION (X.GE.XLC) 
NREG =3 (LARGE Xeeeeere SIMILAR PROFILES) 


x = AXJAL COeSNRDINATE (x/DJET) ty a ey. +... eee se 
Y= NORMAL CUCHURDINATE,FT, 
T = TEMPERATURE , NEG R 


TKE = TURBULENT KE, BTU/LBM 


xLC = AXTAL COSOGRDINATESeSTART GF TRANSITION REGION 
MACH = JET DISCHARGE MACH NUMRER 


COMMON/PROPJIT/ 

Pe > PRE. ». PRY «© REAS » SE 

THEF ,» MUREF » MACH » XLC , 

REFL » C » CHI » RNORM , 

RKO(C200) » MUL( 200) » KCP(200) , 
MUEFF (P09) 4 XLN(200) 4» DKE200) » RETURR( 200) 
CONMUN/CPROP/CTI,CT2,CT3,CTU,CTS-CT6,CT7,CT8,CT9,CTIO 
COMMON /SCPROP 2S CIP, CTS » CTM 
COMMON /PROPJ2/4 SSCHO,REFLO,YI,YO,MERGE 

LOGICAL MERGE 

REAL MACHO 
CHYNON ZMISC/ PM(10), DUMS$3 

LOGIC4S5L LTERP 
COMMON /LLTERPZS LTERP 
COMMON SECTRLZ OUMELI(9), CO » DUNCL2(809) 
COMMUN ZEDGE 7 YJETE,SFEDGE 
ClieMON /SCALEIZ SCALEC 
LOGICAL SCALFC 


+ ee © 


OIMFNSTON YC1), TCL)» TRECE) 
DATA GOIS25059,7572/ 


MUL SLAMINAR VISCOSITY,LHMYSFT=SEC 
MUFFE sFFFECTIVE VISCOSITY,LHM/FET<SEC 
RETURKETURBMULENCE KE YNOLOS NUMHER 

¥CP sn FRE SCPE MSE Te SEC 

XLN =TURHULENCE LENGTH SCALE,FT 

RHO) SDENSTTY,LEMSE TS 

On SOTFEUSTI IG HYAMS ETER FUR TUPKULENCE 


wre len terete einai a eee - — 


Cc 


an 


MOAAAN. 
-_*e 


oY 


“es * © 


* 


PR =LAM] 


v 
ooo 


S¢ 
ot 


Th 
TRE 
MUJREF = 


> 
" 


RNORM sh 


REFL he 
PRT TURK 


CONSTANT 


v 
" 


1. 
=1 
IF CNT 


ORM TRS 


1b (TRE 
CKEL =I 
lef 
30 TC 
=1. 
1022 
(NE 
ST=x 
=C1la 
TkKANS= 
IF (CNC 
Cms1,.0 
TESTL= 
IF (xKRA 
GO TU 
3} CONTIA 
TESTL= 
IF (TES 


s MOOIFI 


55, ve 
YINUCIM 
YOULIM 


4 p00 100 
TTST(J 
RHOCJ) 
VISR=0 
IF (THE 


vVISCoSsTT 


MUL (J) 
GO 10 


LAMINAR 


hE SS 


KF 





NAR PRANDTL NUMHER 

PSI 

EFRLAND CONSTANT,DEG PR 

FERENCE TES PERATURE,DEG R 
REFERENCE VISCOSITY,LHMY/SFT<SEC 


RMALIZING TURBULENCE REYYOLOS NUMBER 
FERENCE OIMENSTUN FOR TURE, LENGTH SCALESFT 
JLENT PRANOTL NUMBER 


VALUES 


JPRL 

etPRI 

=1UU,*#P/RGAS 

RH) OREFLH1./REFL 
=1,/HNORM 

F.NE.0O.) OQTREFHL./STREF 
0/128 

C1,¢C TS*#MACH) 
(500,319) » TwO 
7(1.¢CTS*MACHO) 
*CT9HW1, 

G.NE.2) GO TO 33 
ZALC 
#(CT6¢CT7*”ACH) 
xRAT®*#CN 

T.LTERP) GO TO 3 
7(1.9#CT2*MaCr) 
CTRa(KRAT$1,)4¢CTI#C¥e (PA le xXRAT) 
T GE. 26) NREGSS 
4 

UE 

CTSeCMa TRANS 

TL «GE. CTR) NREG=3 


CATIONS FUR SCALE CHANGE IN CORE REGION 
YJETEPREFL/SC6 


~9*eYC 
= ¥C+.1*REFLSCO 


JeJi de 
) 
=CPRESS/TT 


F.NE.0.) GO TO 5 
y OF ATR 


S.IDS2CUCEMRHESHRI(CKEL*TID/S(Y.¢201 6/77) 
10 


VISCOSITY=="=GENERAL 





S TRETT#OTREF } 
MUL CJ) SMURER ATRASURT CTR) &CTREF OSC)/S(TT+SC) : } 
10 IF C.NUT,. NIURB) GO TO BO 


Gs 
Ce CALCULATION UF TURBULENT PARAMETERS 
C* 
VRoVES) 
Ce 
Cs TURBULENCE SCALE CALCULATION\©= CHECK FOR TYPE OF JET 
C# 
C* 
Cweaaenae COMPUTATION GF LENGTH SCALE FOR TURBULENCE een tan 
Cx 


GO TO (20,400) » TWO 
29 GO TO (25,35740),NREG 


‘ 
C* MIXING LAYER@@REFLSWTOTH OF MIXING ZONE 
C* 
on LPC SCALEE FCO We 2? 
CSCALE= REFE Pr 
GO TO 28 
oF TEE ¥TeLReYEINEIM } CSCALESCE 
IFC ¥T.GE.YOULIM ) CSCALE=REFL 
IF CEYT.GEYINLIM) ,AND, CYT.LT,YOULIM)) CSCALE=Co=(CO-REFL)* 
* (YT#YINLIM)/ZCYOULIM=,9# YC) 
2h XLN(J)= CTI*®CM*CSCALE : : a | 
GO TO $9 
C* 
Ce TRANSITION REGION 
Cr 
35 XLNCJISTESTL*#REFL = oe = 4 
GO 10 59 
L®* 
C* SPALOINGes SEQUENCE FOR LENGTH SCALE 
(+ 
40 XLN(J)=HCTHRREFL 
60 TO $0 
Ce 
nig COANNULAR/COPLANAR JET==SET LUS INDICATOR FOR UP/ON=STREAM 
* OF MERGE POINT 
on 
400 LUS=] 
IF C™ERGE) LuUS=2 
IF(J.GT. 1) GO TO 410 
Ca 
* COMPUTE TERMS WHICH REMAIN CONSTANT AT A GIVEN STATLON 
, 
SCLIRCTIieREFL ECM 
SCLOHCTS#RERLO®CMU 
SCL=SCLO-SCLI 
CYJRECTOIR (CYT eREFLO) 
DENMUSYUSCYIR 
410 Gu {0 (420,400) , LUS 
. 


‘ b THE AM fF MERGE ST4TION 





Ce 


* 
c 
Ce 
fea 
* 


3 


ea 
C* 
Ce 
are 
Ce 
Ce 


ian] 


aa 
*~* 


AAD 
2 


420 YLIMI=ECTI« YI 
YLIMO=YO"CTIYRREFLO 
FE CYT.GT.YEIME WAND. YTTELT.YLISO) GO TD 425 
IFCYT.LE,YLIMI) XUN(CJ)SSCLI 
IFCYT.GE,YLIMU) XLN(J)SSCLO 
GO TO 50 


425 XLN(CJISSCLI+FOSCL*#(Y¥T@CT9*® YI) /OENMU 
GO TO 50 


DOWNSTREAM OF MERGE STATION 


460 IF (J.GT.1) GO TO $944 
TE CREFLO GT. YO) REFLOSYO 
IFCYI.GT.YO) YI=¥0) 
YLIMI=ECT9*(YURREFLO) 
YLIMOZYOCT9*#(YUSYI ) 
YOMRECT9*# (YUSREFLO) 
DENMN=ZCTYR (YT *+REFLO)-CTI0*YO 
TF ENREG.EQ.1) SCLISSCLIT*CTP/CTI 
IFCNREG.GT.1) SCLI=SCLI*CTM/CTI 
OSCL=SCLU-SCLI 

900 TEFEXNT SET SYK IME oOND. VEER. YOTMOY GO TO 865 
IF CYTLE.YLIME) XUNCJJESCLI 
IFCYT.GE.YLIMO) XLNCJ)SSCLO 
GO TO 50 

465 XLN(J)=SCLI+DSCL*CYT©YOMR) /DENMD 


COMPUTE TURBULENCE RF YNGLDS NUMBER 
50 RKETURR( J) =RHU(S) #SORT(GCI*TKE(S)) &XLN( J) ZMUL CS) 
CALCULATE EFFECTIVE VISCOSITY 


CKI=1. 
KGO2] 
GO TO Si 

511 CKIECHI 

Si ZETA=CKIT*kKETURA (CJ) *ORNORM 
H=1, 

60 GO TO (61,70),KGO 

61 VISH=S0,AehaRETURK( J) 
MUEFF(J)S¥UL CJ) *(1,.¢VISK) 
KGO=e2 
GU TO Sif 


EVALUATE OIFFUSION PARAMETER 
70 DK J) 21, ¢ et CHT he RE TURK (OS) 
EVALUATE KEFF/CPoeee 


40 KCP(J)=YUL( J) * COPREVISR*OPRT) 


100 CONTINUE 
TF CPM C9) t ee) 





* 


IF(X.GE.PMCA) .AND. X.LE. PM(9)) WRITE 


Re FLO, SCLI,SCLU,YLIMI,YLI¥O 
FURMAT(/2%,9F14,7) 

IFC .NOT,. DPRIN) GO TO 291 
CALL TABRPRT(C2HYT,¥T,11,19-0) 
RETURN 

ENO 


930 


(6/1640) 


X,YO*VI EFL, 








| aDECK 


+ CSCALE 
Lowa eae 


Ce 


* 
Ce ae 
* 

tee 
Crmaat 

I Ce 
“Cansan 

Lee 

i Cr 
i Canmee 


€a 


a3 ——— apt eioees = - ee 


Cr 


r 


* 
* 


a 


“CUMMON /PRUPJT/ x 


TEQMMON ZBOMIX27 GRADU, Tue MUM, RHOW PTE, TIE 


SCALE 

SURROUTINE SCALE (UU, THOS/NREG,X) 
TURBULENCE SCALE/SINGLE+COANNULAR/CUPLANAR JETS 

* CONTROL COMMON 


COMMUN SCTRLZ 
NXTA 1 CMPRS 
NPU a « NPO wo GxE » KU 7 x00 
OSTOR( 800) 


* PROFILE COMMON 


COMMON /PROF/ PS1(200),¥(200),UD(200),THD(200),E0(200) 


* CONSTANT AND ERROR COMMON 
COMMON /CNERR/ BITS » ERR » GC , GCJ » FOUT 


* KOUNDARY CONDITION COMMON 


COMMON /BCO/ U0, £0, THO 
COMMON /CTRL2/ 
EDGE] , SFI » MERGE , XMERGE » YMERGE , 
SCOPES . SSUOPREO) 2 CEPR se CERIO 
LOGICAL MERGE 
OIMENSION UU(1) 
INTEGER Twos 
COMMON /SEDGES YJETE,SFEDGE 
COMMON /PRUPJS2/ 9 MACHU,REFLO,YI,YO,MERGP 
LOGICAL MERGP 


Ls 7 PRL 7 PRT 1 RGAS x» SC ’ 
TREF » MUREF 7 MACH # KLE ’ 

REFL re » CHI » RNORM , 

RHOC200) » MUL(200) » KCP(200) , 

MUEFF (200) - XLN(200) 7 DOK(200) » RETURR(200) 


COMMON /CPROP/ CT1,CT2,CT3,CT4,CIS,CTo,CT7-Cl4 


COMMON /MIKER/ MIX/RD(100),x0(100),CF,YR(100) 

LOGIC4L MIX 

CUNMON /FLOBAL/ MAXIT,SUPB,NIT,PSID,YOD,YDC, 
P1,P2,UCL+TOL,UPSTR&,CVG 

LOGICAL SUPH,CVG,UPSTRM 


e QJFT » TURBJ ee 2 COEF(C LO} + 


COMMON SACONVES YCO(100)+PD0(100),INDC(100)4 CHOKE, CHOKED 


LOGICAL CHOKE, CHOKED 

CUMMON /DFIT/ CLSP(100) 

COMMON SSTA2S MACHA, TS2P,SS2,V2,RHI2,0PDK2 

REAL MACH? 

REL MUA 

COMMON SCRUOYS YCHC(CLOO0O),CLSPCH(100),YCBt +» VCLI 
COMMIN /OUTMIX/ NxXURTG 


EQUIVALENCE (C6,COEF(6)) 5 








160 TO (100,200) , TwOJ 


Ce 
Ce SINGLE JETe= COMPUTE LOCAL wIDTH OF MIXING ZUNE 
C* 
100 GM TQ (140,120,120) » NREG 
120 REFLECH*eVYJETE 
GU TO 160 
140 DO 143 L=1,NPU 
IF (UUCL).NEe-UCLI) GO TO tua 
143 CONTINUE 
144 KEFLECOe(YJETE=Y(L=1)) 


Ce 

160 RETURN 7 
Ce 
Ce 
Ce COANNULAR/COPLANAR JET 
C* 


Ce TEST MERGE TO DETERMINE IF UP/ON=STREAM CF MERGE STATION 
€x 
“200 TESTI=U0*1.E-6 ‘i — ae 
TEST2=U041 .E=6 
IF(MERGE) GO TO 260 
Cr 
Ce UPSTREAMee COMPUTE REFL/REFLO,YI,YO 
Cr 
210 YU=CO*LYJETE 
YI=Co*FOGEI 
Cr 
C* SCAN UU TABLE FUR BOUNDASIES OF MIXING ZONES 
Ce 
DO 220 L=1,NPU 
1F(CUUC(L).NE. UCL1) GO TO 222 
220 CONTINUE 
eee LK=Le1 
REFLZYITeC6xeY(LK) 
DO 225 L=lK,NPU 
IFC UUCLIY.GT. TESTI e4AND, UU(L).LT, TEST2) UUC(L)=U0 
IF(UU(L).E9.U0) LJEL 
225 CUNTINUE 
Ce 
230 REFLO=¥N-CoeY(LJ) 
GN 10 500 
Ce 
Ce DOKN STREAMee DETERMINE BUUND ARIES UF MIXING ZUNFS77Z 
Ce USE LIMFAR FQUATIOINS FOR NOZZLE/SMERGE POINT LINES 
260 YI=(SLOPEO*X¢CEPTU) *Co 
YO=sCH*e YJETE 
REP LOZYU=Co*(SLUPE T*#xXeCEPTT) 
OM 270 L=1,NPuU 
IF CUUCL) NE} har GO TO 275 
270 CONTINUE 


275 REFL=YI=Corv(l-1) 


500 RETURN 


END 
oe 
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*DECK THRUST 
x SUGERUUTINE THRUSTCNX) 
CTRRUST CALCULATE NET THRUST==-LBF 


Cer 
Cane 


sa 


r Ce 
Crene 


i Ce 


| 
= 


bee 
Crnrae 
Cr 


INTEGER THOS, LTRO 
LOGTCAL SuPC,SuePSTeR 
LOGICSL SURSON 
LOGICAL TROURL 
LOGICAL DPRIN — 


LOGICAL LAST.-CORSTP,400P,ENTRYI,IER 


LOGTCAL EOF 4, ERR 


LOGICAL AXT , XPRN ,» CMPRS 


REAL KCP,MULeMUEFF, “ACH 
REAL MJET » ME , MUREF 
COMMON /JETTWOS i 
* THO » OFA0 + MJETO 
a PTJETO ». TIJETO »« NJO 
REAL MJETO,MACHD 

COMMON /BCOZ U0, EO, THO 
_COMMON /CTRL2/ 


© BOGEE 0 SEE 2 MERGE 


* SLUPET ». SLOPEO , CEPT! 


’ 


’ 


«¢ GQJET | TURBS ,» CORE 


TJETO +» VJETO 


XMERGE , YMERGE ,» 
ceeto 


COMMON /MERGETS MER, MERSTP , XMRG 


LOGICAL TwOU, MERGE » MER 


MERSTP 


COMMUN /SETNEW/ LEDGE, LCOREN 


CUOMMPIN ZINPL 7 ENTRYL 


COMMON /MISCZ PM(10) 
COMMON /PARAM/ 


* DSTOR(800) 


@e PROFILE CUMMUN 


COMMON SPHUFS PSTC200) 0 VC 


* AL(200) , BEC 200) , GM(200) . 
* EPS(200) , OL(?00) , 
* VAR(200) ,» DVAR(200), 
Ss Sé1(200) o_ NMI bi _# $M(200) Be ek Re FE, OL 
* Ox , 
* BE 7 CHE + OF » 
* AN , BN » ON 
ae TNPUT COMMON 
“CUMMUN /INPJET, < Gir he eto 
* DIAJ » MJET » TIFT o PTJET 1 VJET 
* TIJET ' 
* PE « VE 7 ME er FXE yee 
* AX o NJ » NMAX ’ 
* xJ€100) « XPRN(100) , = 
* GOM » RG 7 PR 7 PRT ’ 
* SC p TREP » MUREF 
#* CONTROL COMMON 
COMMON /CTRLZ 
* NXTA 7 CMPRS — , OEY ~~) TURSS o CIEF (TS) 
* NPU 7 NPD o OXC » XU » *00 


O) UOC209) TRC 200), ,E0 C200) 





i. 


Caseaese CONSTANT AND ERROR COMMUN " i 

= COMMON /CNERR/ BITS , ERR , GC , GCI , FOUT 

ee et BOUNDARY CONOITIGN COMMON 

fe ~~ COMMON /BC/ UEDGE ¢ EEDGE , THENGE < ae 
Sreenens POTENTIAL CGRE COMMON 

a COMMON /CORED/ XCORE , CORE , CORSTP 

ice 


“COMMON SUPERS SUPC,SUPSTP,xSUP 
Ceaaeee SCALER CUNITS CONVERSION) COMMON 
Ce 
{ COMMON /SCALERZ SP , SV , SLEN 
Cer 

__ COMMON /JET/ ae , a be peo 
~* BEL00) » UCCLO0) | TEC100) «+ TIC(100) ¢ 

* PTC(100) , wi(100) .» YJUC100) 


Ce 
COMMON /PROPJT/ 
=e » PRL me Pew e » RGAS 4 See ’ 
TREFF > VSREF 7 MACH » XLC , 





* 
®REFE “é& € "Tathin «ap iRhORM® =.) 
* RHO( 200) » MUL( 200) e KCP(200) , 

* MUEFF (200) » XLN(200) 6 OK (290) + RETURB(200) 
COMMGN /KPRIN/ OFRIN 

COMMON /EDGE/S YJETE , SFFEOGE 
we COMMON /UMESH/ DUMUL(4),CXPC,CXTP,NRED 
Ce x 
COMMON /MIKXER/ MI¥,RDC100),xD(100),CF,YR(100) 

LOGICAL MIX 

COMMUN /FLOBAL/S MAXIT,SUPR,NIT»,PSIO, YON, YOC, 
a Pt,P2,UCL, TOL, UPSTRM-CVG 

LOGICAL SUPR,CVG,UPSTRM 

COMMON SACUNVG/ YCD(100)-POC190)/INDC(100), CHOKE, CHOKED ~~ 
LOGICAL CHUKE, CHOKED 

COMRON /OFITZ CLSP(100) 

COMMUN /STA2/ MACH2,TS2,SS2,V2,RHUC,UPOXK2 
REAL MACK2 

COMMON SHCMIXC/S GRADU, TH Mi, RHOW, PTE, TTE 
REAL MUM F 
COMMON /TRERM/ GMC(200),CP(200) 


COMMON /OUTMIX/ NXORTIG 
| COMMON /CHODY/ YCB(100),CLSPCR(100),YCB1,UCLI 
| COMMON /THRSTZ wV(100) 
OIMENSTION STURT (200),THR(200) 
EQUIVALENCE (STUPT (1), ALCI1))- CTHROI),BECI)) 
DATA PI/3.14159265/ 


Ce IF MIXING ZONE H4S INTERSECTED FLUGS= TERMINATE 


Cn 


[~~ eesar, eas 
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TFCAX]) EPSe2, 
1 YPLUGSYCB (NX) 
UPZYDF (YPLUG, ¥,UD,32NP0) 
TRCUP ER, UECLI? GO TO 10 
TFCVYPLUG JER. O.F 60 TO 10 
WRITE (6,100) Nx 


100 FORMAT(//6x%,2RHMIXING ZOKE INTERSECTED 


° L7//12%,22HCALCULATION TERMINATED) 


ERR=o, TRUE. 
GO TO 1000 


CALCULATE TRRUST OF JET STREAM 


-* 


10 DO 15 L=1,NPO 
REXP=t, 
IF (AXI) REXPSYCL) 

15 STORI(L)FRHO(L) *UD(L)*UD(L) ®REXP 
THR(1)=0, 
CALL INTG(STORT+Y¥¢THR,2,NPD) _ 
TJ=THR (NPD) /GC 


IF (UPSTRM) GU TO 19 
Tur=0, 
GU 10 50 
Ce 
Ce THRUST OF UNENTRAINED FLOW 
Ca 
19 IFC(NX.NE.1) GO TO 20 


PLUGS, OX¢ THSTATION, 


TUSPUN, #PES(RGATE RI VESVIET) RRPS(GCHEEPS) A CYRIL) & RE PSHY(NPD) RR EPS) 


GO fu 50 
20 TUSRHOU2Se(VAE/SVIET) Aa 2/(GCHE PS) eC VYDOeeEPSeVJETE*X*EPS) 
ar - : ie Ba Pd BeSeh DES ies 
Ce 
Ce CALCULATE NET THRUST 
Cs 


SO TERKMEVJETa ee *OTAJ/FOOT 


IF(Ax]) TERMEPIT*DIAJaTERM/(2,*F NOT) 


TNSTFERM*(TJ¢TU) 


60 WVCNX)=STN 
Cr 
1000 RETURN 
END 


ieee! 


93 





— : 








*OECK YOF 
FUNCTION YUF CXL, X,Y,14,16) 
CYOF X11 
COMMON /YOFXIZ I 
DIMENSION X(10),Y(10) 
Li=lA¢l1 
12=18 
I=MINO(MSxX0(0TI-1),1I2) 
=e 
40 IF(N) 42,999,42 
B82 N=Ne] 
SS FaCxrex(Te1) 40x01) -x¢l-1)) 
SS IF(F) 60,100-70 : 
60 IF CIeI1) 65°100,65 
65 l=let 
GO TO 4Oo 
70 TF (Fet.) £90,100,72 
72 TFC Te12) 744100574 
7a yates 
GO TO GO 
999 STOP 
RETURN 
100 YOF =YC(To1) + €CYCT)“¥CT Ol) aF 
RETURN 
END 


Sey 
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_#DECK JTMIXY 
UVEPLAYCSSNOTSEs 1,1) 
PROGRAM JIMIXI 


( MATNees=e JETMIX OVERLAY(1,1) 
Cc 
1 CALL JETINP 
| 2 RETURN 7 _—- 4 = : s . 
END 
- 
+ 
#DECK FILL a 
. SUBROUTINE FILL (X,Y) NA, NB) : (Cee ae ee 
CFILL 
re LINEAR INTERPOLATION TO FIL VACANCIES IN INPUT LISTS 
CORMON /CAITS/BITS 
OIMENSION X(10),YC(10) 
c FIND 14,18 = VACANT REGION Pr DS ee a ei ta lA GEE Eee DE, 
ioe JA=NA4] 7 . an ‘a 


IF(Y(TA*1).EQ.81TS) GO TO 99 
3 0O & J=ETIA,Nb 

IF cycl).NE.BITS) GO TO § 
4 CONTINUE 


., IH=NB RAs pt as, ce, Fg et ne Ee ag ee EO vee ee 
Go TO 7 4 ‘ - —_—— 
S 18:11 
IF CLLEGE) GO TG te 
Cc FILL VACANCIES 
IF(Y(1R41).NE.YCTA*1)) GO TO 9 
C.. 4LL VALUES THE SAME : 


7 00 6 If=sfA,I8 
& YCLIT svc rae) 

GO TO 32 
C INTERPOLATE 

9 OX = XCIBeL) © X(TA=1) 
OO 1) r1sT4,18 

11 YCIT) = CYCLR+L #CXCTT)=xCTbed)) & YOTMs1 de OXCI BEL eXCTI)))/0x 
c GO HACK AND SEARCH FOR MORE REGIONS 
fe UA = Tare 

Tect.tr.n8) GO TO 3 
99 RETURN 

END 
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laneck rsaRT 


c 


i I F-; 
TFC Jm¥x ) GO YO 20 


| 
L 


—— 


SU 
ISORT 
ca 


ca 
co 
cu 


ot 
Lo 


NC 
0a 
IF 
x¢ 


Been EL Lee 


I 
S60 
GO 


20 NC 
00 

IF 

xD 

RO 

yc 

xP 
Sous 
25 C0 


50 RE 
EN 


BROUTINE TSORT(JMIx, TAR, NB, B, NDE) 
GE TSORT SIMULATOR|e= MUVE DATA TO INPUT ARRAYS 
MMON /CBRITS / ALTS, BLANK 


MMON SINPJET/ DUMICL4)s KO100)- KPRNC L100) » OUN2(7) 
MMON SMEXER 4 MIX,RD(100),xDN(100),DUM5(101) 
MMON /CEODY 4 YCR(100)-DUM4 (102) 


MENSION A(t) 
GICAL JMIX 


= 1 


OL = 2 
S J=t-NOKBeNCOL 
€ BOJYTEQ.B81TS ¥ GO TO 50 
1) = 6¢J) 
= et Pie a Oa ees eae ea ar Sel ae oe eS 
NTINUE 
TQ 50 


OL = 4 
25 J=t,NDB,NCOL a 
e BGA GEGcHITS Fy 60° TU SO.) - 

(1) KO) 
(1) A(det? 
KCI) A(J+2) 
RN(IL)= KO J+5) 
= I+! 
NTINUE 


wou tot 


TURN 
0 
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eDECTK JETINP 
; SUBROUTINE JETINP 

CJETINP JET*<INPUT ROUTINE 
LOGICAL TAPIN, TAPUT 
INTEGFR PLOT 

LOGICAL MCHANG 

LOGICAL AMBTO 

LOGICAL DPRIN- 

LOGICAL EQF », ERR 
LOGICAL AXI,CMPRS,QJET, TURBJ,CORE 
INTEGER XPKN 

LOGICAL ENTRYJ 

REAL MJET » ME » MUREF 
REAL MACH SNF 
COMMON /FILK/CSC 
COMMON/CUPDAT/MAP, IMAP, NOIGIT(14) 

COMMON /SINGZ SSD(43) 

CUMMON /CAKRY/S NEW 

LOGICAL NEw 

CUMMON /RSTART/ NREG,RESTRT,NRES/MIXPRE 
LOGICAL MIKPRE 

CUMMOUN /EDGE/S YJETE, SFEOGE 

COMMON /JETTNOS JTWON,Z01A0(6),NJO 

COMMON /RCOZ U0, EO, THO 

COMMON /CTRL2/ 
* EDGE! » SFI, MERGE » XMERGE , YMERGE » 
4 SLOPEL »# SLOPED « CEPT! + CEPTO 

COMMOIIN /MERGET/ MER, MERSTP , XMRG 

LOGICSL THO, MERGE , MER , MERSTP 

COMMON /PROUPS2/ MACHO,REFLO, YI, YO, M4ERGP 

REAL MACHU,MJETO 
ae EOMMDN SRE GE EME LON? CPLR en me ee ee ne ee 

COMMON /INPI/ ENTRY] 
COMMON /UMESH/MCG(7) 


Cr 
Careeane INPUT COMMON 
Ce 
. ~~ COMMON /INPJETS © —_a ‘MWS ee a aie 
: & ZOTASC1L1),SAXTeNJpNMeX (100), ¥PRN(100),G4M,ZRG (6) 
¢*s 
Ceeeeee CONTROL COMMON 
bee 

COPMON JCTRLZ 

# NXTA » CMPRS + QJET a » TURBJ , COEF(IO) ' 

* NPU , NPD o OxC 0 XU » X00 ’ 
| # OSTOR(800) 
Ce 
| Casaans PkKOFILE COMMUN 
»c* 

“COMMON /PRUFZ PSI(200),¥0200) -UD(200),THD( 209) -E0(200) - 
,c# 
Ceenraee CONSTANT AND ERROR CUMMON 
,c* 

COMMON /CNERR/ BITS , ERR , GC , GCJ . FOOT 
Ce 
[ceaseee POUNDSRY CHehNBETION COMMUN 

a 
939 


le 


COMMUN /B8C/ UEDGE . EEVGE « THEOGE 
C* 
Ceaneee POTENTIAL CORE CUMMUN 
C* 
COMMON /CORED/ XCORE , CORE , CORSIP 
Ce 
“Caeaaee SCALER (UNITS CONVERSION) COMMON 
C* 
| CUMMON /SCALER/ SP , SV, SLEN 
Ce 
"Cennens JET PROPERTIES CUMMUN 
C* 


COMMON /JETZ 

* #E(100),UC(1090),TC(100).-TIC(100), 
*® FTIC(100) » wWJC100) , YJS(I00) , 
* YSONIC(100) 

COMMON /JETIZ FLOWJ,TTO,NX,EJEFT 
COMMON SPROPITS 
* Pp @ PRL » PRITT » RGAS e SCC ’ 

© TRE » VSREF » MACH 7 NEC if 

# DUM(1404) 

COMMON SXPRIN/S DPRIN 

COMMUN /CPROP/ CT1-CT2,CT3,CT4,CTS-CTos,CT7,CT8,CI9-CT10 
CUMMIIN /CPROPC/ cre, cts P CIM 


CUYFMUN /RATIUS AMKTO 

COMMON /IOFILE/Z TAPIN, TAPOT 

CUMMON sPARAM/ 4(500),O0TAS(1)-MJET, TIFT, PTJETAVJET, 
TIJET,PE,VtEsME, TIE + TE, OX],RG(1),PR,PRT»SCeTREF, 
MURFF, TAU, DOLAUC1) eMIETO,TJETO,VJETOSPTJETO, 
TIJETOOMOCRANG C1), CK,DYI+NYSH,CXPC,CXTP,NRED, 
Mix, SUPBMAXIT, TOL ECR oe NACL, TAB(SDANOCE), TADCA), 
0(A00),0UMINP (461) 


»eeee 


Ce 

COMMON SMIXERZS JMIX,RD(100),x001900),2CF,YR(100) 
LOGICAL MI*x 

COMMON /FLOBALS *MAXTT,JSUP,NIT,PSIO,YOD,YOC, 
» PLl,P2,UCL,ZTOL,UPSTR CVG 
LOGICAL SUPR,CVG,UPSTRM 

COMMON SACONVGS YOD(100)+PD(100)-,INOC(100), CHUKE, CRUKED 
LOGICAL CHUIKE, CHOKED 

CUMMON /DFIT/S CLSPC(100) 

COMMON STAC “CK TS2,SS2,V2,RHO2, I)PDKO 

RFAL~ MACHO 

COMMON /BACMIX2C/ GROOU,TArPMUW, REGY PTE, TTE 

REAL MUM 

COMMON /CHKODYZ YCK(100)-/CLSPCHC100),YCH1 » UCLI 

COMMON SOUTMIXZ NXORIG 

COMMON SINNSMEZS *NH O06), 4NDOS) 

COMMON /TAG/S DUMIO(CUO) ¢ LOFNTCYO)S 

COMMON /OLFEQTZ 

a NC , CNAME (OD) » ALJ(6) » ALJUCO) , ALECO) » 

® SCM(6) » TCRRFEF (6) », HOPRE(6) , CKC( 3,6) 

COMMON SZDICTRLZ DIFF , CNO(10) 

LOGICAL OIFF 
[ CUMMON sO LE , b£i se 20ue,b) 


940 





COMMON/RACMILSALENGE (6), ALN(6) 1 
COMMON SJE $Z STADD,NV,STATF 
LUGICAL LTERP 
CUMMON /LLTERP/ LTERP 
COMMON /SCALEI/Z SCALEC 
LOGICAL SCALEC 
Ce 
OIMENSTON IMP(10) 
EQUIVALENCE CI¥P(1),PM(1)) 
DIMENSTON XPRNI (100) 
EQUIVALENCE (XPRNI( 1), XPRNO1)) 
DIMENSTON ICHANG(1) 
DIMENSTON OMOL (6) 
EQUIVALENCE CICHANG(1),MCHANG(L)) 
EQUIVALENCE CIAXIT, 4x1), CITWO, TWO), CTSUP,SUPKR), CIMIX,MIX) 
EQUIVALENCE (1H1T5,4I1TS) 
DIMENSTON TID(C200) 
EQUIVALENCE (TID(1),FN(1)) 
LOGICAL JAXT s+ IMIXe JTHO,ISUP 
DIMENSION XAC(72) , IXPRAC(72) 
DATA XAC/0.429001,.0002, .0003,.90005,.0008, .0014,002, 004, .006, 
CONG OL DIS ce ONT er eGo Obs eVhe OAs ela eler ele elvan See didn nde ede 
SOE ASO OTH eT PeOr Le pl eCHL en letneures If Det Sete te rer On Owe v 
SasnCiac psa? «de Mee Dee LOlePi tiene cpl sea ts pl tie kOe de Lee wl Oak th Fee 
S90 ert peter ese Ad ve Ser COe ep eher ser Seen Rte SOs 
DATA TXPRAC/I Lele Leerele del oeleolemlelemtolrololrrtels 
R Beef ptertele stele otbewmtnlemtloltormie te deelolembelerlsleole 
ae Wee OO ee oe ee ee ee 
NAMELIST /A/ DIAJAMJET,TJET,PTJET,VJET, 
TIVET : 
Pe 
AX] 
GAM 
x 


se ee 


VE 
NJ 
kG 
XPRN 
sc TREF 
SP SV 
DPRIN ePLOT 
NREO 7 PM ’ 

CxPC o CXTP ’ 

MCHANG « IDENT ’ 

bf ; US ¢ THO « ED > EEO» 
CHI-CTArCTS,ETH CIS» CT6.ET7 CTA, CHF, 
CTM,CTS/CT Pr bs NA TAB LO,ND, TAD, RESTRI, 

CK,DOYE sNMSHSMIX,VMAXIT, CR, TOL, SUPR,RD,XD,YCB, 

Twi » DIAU » MJETO y CIETO ’ 
VJFTO,PTJE TU, TIJSETO,NJIO, 

NC, CNAME, ALJ, AL JO, ALE SCMsTCPRE ,HCPRE,CPCrAL X DIFF, 
CSC /NOIGITOLTE RP, SCALEC 

DATA BLANK/I0OH ¥ 


ME e TEE *. VE ' 
NM ? 
PR * PRT ’ 


MUREF ' 
SLEN ‘ 


- 2 2 = vie © 
ss = + Bis 


a ae oe ee oe ee ee ee ce oe oe a Se ae Se ee 


Cr 
Ce 
C*# READ NAMELIST $A 
Cr 


2 CALL JTINIT 
| CALL SETM(1,BITS,Y,800) 
YiLJ=EUITS 
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! CALL SETM(1,RLANK,IOFNT,10) _ 
C* 
C*# INITIALIZE B ARRAY, DUMMY SINGLE CELL INPUT 
C« 
ERR = .FALSE. 
4000 CALL SETM(4,411S,8-543,ND-805,%,100,%0,100) 


Ax] s , TRUE. 

rr “TwO = ,FALSE, a i. ee eee ef en eg San Pee ee ee 
MIX Ss FALSE. 
SUPR = FALSE. 


4090 IF(TAPIN) CALL JTFILE(3,0UMYF) 
3 READ (5,4) 
| 999 IF( ERR ) RETURN _ Pe Oe es Cee hee iar rel. 9 Cee : 
Ce 
,C*# RESET POSSIBLE BITS VALUES 
res 
1 IF( .NOT,AXT ) JAXTSAXI mere Fe , Neil un Ce eet 
IF( MIX ) JMIX=MIX 
Pe eo eRe OLR ULa a RECS RNC ie iets Sa et aE ee eS a 
1F( SUPB ) JSUP=SUPB ; 
1ECMAXIT.NE.IBITS) MMAXITSMAXIT. 
IF(TOL.NECBITS) Z2TOL=TOL 
IF(CF.NE.BITS) ZCF=CF 4 
IF(CXPC.EQ.RITS ,AND. TWO) CXPC=,04 
CF CCXTP,FQ.BITS AND. TWO) CXTP=,04 eras ae - 
~ TF(CXPC,EQ.BITS AND. MIX) CKxPC=.05 7) 5.5 Tae eee 
IF(CXTP,EQ.BITS .AND. MIX) CXTP=.05 _ 
4001 00 4010 L=t,1! 
IF(L.GT.6) GO TO 4002 
IF C(RG(L) NE BITS) °ZRGC(L) ERG(L) 
ay IF CDTAO(L).NERITS) ZD1AO(L)=OIAO(L) _ 
GO02 IF(L.GT.7) GO TU 4005 
IF CICHANG(L).NE.IHITS) MCG(L)=TCHANG(L) 
4003 IFCOIAJ(L).NELRITS) ZOIAJ(L)=0IAJ(L) 
IF(NB(L)NETBITS) MNBC(L) ENROL) 
4010 CONTINUE 
Ce 
"C# MOVE DATA BACK TO DUMMY ARRAY 
Cer 
4020 CALL MOVE(S,ZDIAJ, OLAS, 1151,4CGeMCHANG, Ty le 
* ZOTAO,DIAGs+ 661 472RGe RG, 601 ,MNA PNK L161) 
AXI = JAXxI ‘ 


= ae ThO = JTwO At, eee 
i RUPEES OSUE s Se MS ke Re ae ee wee So Gee ee ae eee 
WIx = JMIX 
f CF=z7cF ; =F 
| TOLEZTOL 
H MAXITSMMAXIT 
L. IF(MIX ,AND, TwO) GO TO Gua as rte aninatincememnancn 


CPR): 349 LSC). ano ae Nae ia te Me Ra By ey 
IMP(A)SIFIXCPM(1)) 
CMPRS=,FALSE, 
KGQ=2 


| 
E _MOVE INPUT ARRAYS TO STORAGE 
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' 


az 


4030 CALL TSORTCIMIX, TAK, NA, Be 1O08NB) 


C*# COUNT NUMRER OF A¥TAL STATIONS 


+P 
| ce 


e 
{ 


Ce IF MIX¥FR NOZZLE CASE, NUN=DIMENSTONALTIZE 
Ce AND CURVE FIT DUCT CUsORDINATES © 
Ce 
Cc 


re INITIALIZE ACOUSTIC STATIONS 


: ieee’ 


c 
IF( X(1).EQ0,81TS ,AND. (,NOT.MIX)) GO TO 403i 
GO TO 4652. 
W031 CALL MOVE (2+ XOC,X, 7261, 1XPRACPXPRN, 72,1) 
4032 IF( RESTRT.NE.KITS ) GO TO 4300 
IF(.NOT.MIX) GO TO 4442 
OO 4440 L=1,10¢ 
IF CxO(L).EQ.BIT ¢ GO TO 4445 
4440 CONTINUE 
ERR=, TRUE. 
GO 10 999 


C* 
4445S NXTAsLo1 
Ce FILL UNFILLED ARRAYS 
Ce 
4040 CALL FILL (X0-RD,1,NXTA) 
CALL FILL OXD-YCB,1eNXTA) 
TERMD=1,/D1 AJ : 
COLL FMPYC(ISTERMD,X0,XK,NXTA) 
TERMO=2,/DIAJ 
CALL FMPYC CY, TERMD,RO,YR»~NXTA,YCH,YCBsNXTA) 


CALL LCFITCXO,YR-NXTA,1,X0(1)-¥99,1,0-CLSP) 
CALL LCFIT(X0,YCB,NXTA,1,x0(1),/YCR1,1,0,CLSPCB) 
GU 10 6 
4442 DU 4 L21,100 
IF (xX(L).EQ.BITS) GO TOS 
4 CUNTINUE i — 
GU4 ERR=, TRUE. 
GO TO 999 
S NxTA&sLet 
GO 10 6» 
Ce 
C* SPECIAL X=TABLE PROCESSING ON RESTART oS ee 


, oe 


\ 
| 
| 


——--——+ 


4300 NXX=NXTAG] 
N¥OSNVEOl 
KLOUCZRESTRI 


| IF (MIX) RESTRTZRESTRTI/OIAJ 
aan = aad een See 
C*# SEARCH FOR RESTART LOC, 


Ce 

DO 4310 L=1,100 

IF(X(L).EQ. RESTRI) NRESSL 
. _IFCX(L),EG.KITS) GO TO 4320 
4310 CONTINUE oie 
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4st 
4320 


Ce 


4340 
4350 


-—-——_- 


~~ 4329 
4328 


Ce 


“Ce “TEST FOR COMPRESSIAILITY,TRANSPURT OF GeeINITIALIZE 


_C# 


Ce 
Ce 


ERR= TRUE. 
GO TO 999 — 
NxTAsL-} 
IFENRES FO. 1) GO TO 4311 
IFCC.NOT, MIX) 
IFC.NOT, MIX) 
vO 4$40 L=1,100 
IF (xD(L),EG. BITS) GO TO 4350 
CONTINUE 

NXORIGSLO1 

CELL FILL OXUCNXD) -RDONXD) SNXO,NXORIG) 
CALL FILL KDONXD),YCR(NXO) ,NXN,NXORTG) 
TeEwMDSL/DLAS mis a — 
NUMENKORIG+1L9NXO 

CALL FMPYC (1, TERMD,XD(NXD),xX(NXX),NUM) 
TERMDS2,*eTERMD 


.4NO0, MIKPRE) 
GO TO 6 


GO TO 4529 


CALL FMPYC (2, TERMD,ROCNXD), YRONKD) , NUM, YCBENKO), YEH CNXD) »NUM) 


NXTAENXX#NUM@] 

Of 4328 LEt,NxTA 
IFCXLOC ,ER. XOCL)) 
CONTINUE 


PE=PD(L) 


6 ITFCR JET. NE, KITS) CMPRS=, TRUE, 
IFCPTJET.NE. BITS) CMPRS=, TRUE, 
IF ¢(.NOT, 


SET PRINT INDICATOR 


4050 TFCCXPRN(1).EQ.2) OR, 
* NXTAw1) 
IF CCXPRNCE) .E0. €92)) OR, 


Ca 
Ce 
Ce 
Ce 

* 


4055 
4060 


K CALL SETMCL ete XPRNCO)/NXTAS1) 
DO 4069 Lees NXxTAa 

IF (XPRN(L).EG,IBITS) XPRN(L)20 

IF CKPRNI(L) 69. 9.) GO TO 4060 
TFC TARS(XPRNEIL)) EQ. 1) GO TO 4060 
IFCKPRNICL) oLT. 9.) G60 TO 4055 
XPEN(L)=1 i eaes ‘ me 7 ia 
GO TO 4060 

XPRN(L)=91 ‘ 

CONTINUE 

IF(TIJET.NE.O.) GO TO 10 

TURKBJ=, FALSE, 


10 TFCCMPRS) GO TO 12 


VJET, VE, TJET, TF A530MEO GIVEN 
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CALL LCFITC XD, YR~NXORTGr 1x9 (1)6Y99,1,0-CLSP) | = 
CALL LCFITCXO,YCRsNXURIGl 1,x001)-YCH1,1,90,CLSPHC) 


CMPRS) CALL SETM(LAHITS, PTC, 100) 
EPCOIN -gANGs SHES TRU AES. BITE E TSO ISONN TS 


CHPRNE CL) Qe (22099) 


(XPRNI(1),E0,2.)) CALL SETM(1,1,XPRN(2), 


Cen antennae btimenniiie 


ee Pee eee 





MJET=O, 
MEZO, 
CPSGAMH(TJET) 
cPJ = CP 
EJETHILS/GCI®TIJE Tee 2aVJE Tae 
TFCTHO) EJETOSL. S/GCJATIJE TN ea oeVIF Paar 
TTE=TE 7 
PTE SPER (1.4. 5*VE ae 2/(GCeRGHTE)) 
Gh TO 150 
12 GAMEGAMNCTE) 
VSESSORT(GAMARG*GCATE) 
_ IF CME EQ BITS) GO TO 12e ca aie ie 
VESME ®VSE 
GO TO 125 
122 MESVE/VSE 
125 TRM=},4,5*(GAM"1,) #MEae? 
TIELSTEeThM 
PTESPES (TRY) &#(GAM/(GAM@1,)) 
IF(MJET,EG. BITS) KGO1 
IFCPTJETLEQ. BITS) KGO=2 
GU TO (1350,140),kG0 


Ce 
240 TFCTJET.NE.BITS) GO TO 141 

Ce 

“€é “DEVERMINE HIEY (GAMeGanC!))- .° i =. eo 
Ce 


TLTSVJETAVIE TSC RGRGCeMJE TaMJET) 
TUE TSCTLI/ 2.23708) #*(1./.92979) 
IFCTJIET.GT. 800, .AND, TJET.LI. 3600.) GO TO 1410 
GAmM=1,4 
IF(TJET.GE. 3600.) GAM=1.254 
GO TO 1413 
1410 GAM=GAMH(TJET) 
1411 GOM1=GAM/(GAMW]4,) 
GAM2=,5*4(GAM1,) 
GAv3=1./GAM1 
CP=ZG4ML*eRG#GC/6CJ 
GO TH 142 
141 GAMSGAMH(TJET) 
VJETSMJET*# SORT (GAM@RG&GC eT JET) 
Go TO 1411 
142 EJETHL.S/GCSATIJE THe TIVE TeVJETAeVJET 
“PT JETSPE a (1, +GAMQaMJETA#2) AH GAM] 
GO To 150 


150 IFCVJET.EG.RITS) GO TO 131 
ASSIGN 1512 TO KFGO 


Fel ke es See Te Le ee Ce 
ae ie 0 ae . 
PRAT PIJET/PE 


$301 IT Ite) 
GAMGY (GAMG#=1,)/GAMG 
TJeT VIET HRC (GAMGHE LIS (20 AGAMG ERG AGC & (PRAT **GAMGI=1.)) 


} 
{ 
_IF( TIET.GE B00. .AND.TJFTLLT. $6000, ) GO TO 1502 _ 


Gam = 1,4 
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1302 
1303 


1310 
1311 


ete 


131 
1364 
as i 
___ 150 
cs 


—— 
Cre 


160_ 


165 


c* 0 


“1610 
1611 


"168 


169 


a 


“LOGIC FOR FLOW CONDITIONS OF OUTER JET 


IF( TJET.GE.$600, ) GAM=1,254 | 
GO HH 14303 ‘i : s 
GAM = GAMH(TJET) 

IF( CAKS(GAM*GAMG)),LE. 6001 .OR. IT.GE.19 ) GO TO 1511 

GAMG = GAM 

GO TO 1501 

GAMZGAMH(TJET) 

GAMLSGAM/(GAMel,) re Mae 
GAM2s,5*#(GAMo1,) 
GAM3=1,/GAM} 
CP=GAM1 ekRGeGC/GCJ i 
TIRJ=(PIJET/PE) ##G M3 / 
GO TO KPGN,(1312,1364) 

EVETSECSAECISTICETSCVIJEL< VCC aKuer°6~C~S«7;SC=<=i=i=<C=CiCi‘ OD:S~S™*”*”*~*~*~*”*~”””S”:C™~C~*~S™~™S ae i 
MJETEVJIET/SORT (GAM*RGAGCATJET) : 
GO TO 150 
ASSIGN 1364 TU KPGO ~ Le A 5a i aan. Rs ' 
GO TO 1310 

| MJETESQRT((TTRJ=1.)/GAM2) 
VJETEMJETRSORT(GAM*RG*GCRTJET) ~ 
EVETHLS/GCU*FTIJETATIVETHVJETAVJET 


CPJ=cP 


IFC.NOT, TwO) GO TO 151 


= SS “ 


IF(CMPRS) GOTO 160 — or ae 


MIETO=O, et | 

GO 10 151 | 1 
PEUMSG TOR ne) Wie ee 

IF(PTJETO.EQ+B1TS) KHUZA me 1 

GO TO (1700165) » KHO a = P se ee 

IF(TJETO.NE.HITS) GO TO 168 
ETERMINE TJETO (GAMU=GAMO(T)) 

 TEESVIETOMVUETOSURGSOLEMUETUSMOETO) == ————O*—C—C“<CS;=CSCSC‘i‘i‘“ 

TUF FOSCTLT 2625706) ##(16/492979) H 
IF(TJETO.GT.B00, AND, TJETO.LT, $600.) GO TO 1610 

GAvO=1,4 | 

IF (TJETO.GE. 3600.) GAME1,254 

GO Tu 1611 | 
SRMDNCRMICR TE et F 


GAM{=GAM/(GAM@1,) 
GAM?p=,5#(GAM=1,) 
GAM3=1,/GAM} 
CP=GAM1aRG*#GC/6CJ 
GO TU 169 
Cicer ee eee 
VJETOSMJETO*SORT(GAMO#RG GC eTJETO) 

GO TO 1611 ; 
EJETOSL S/GCI*TIJE TOSTIJETO®VJETAVJET ! 
PTJETOSPE® (Le tGAM2eMSE TORR 2) RAGAMY : % ; 
GO TO 191 


\ 
\ 
| 
| 
} 
| 
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170 TFCVJFETO.,EG,. BITS) GO TO 171 
ASSIGN 1712 TO KPGO 


; GA*G = 1.38 
f IT = 0 
r PRAT = PTJETO/PE 
1701 «17 = IT¢#) 
f"""“GRNEE = CGAMGST\/GAMG °° : — eae 
TJETO = VIE TOse2e(GAMGH1,)/(2,eGAMGRRGAGCH(PRATARGANGIL91,)) 


IF( TJETU.GE.800,. eAND, TJETU.LT.3600. ) GO 10 1702 
Ga"Q = 1.4 
IF( TJETO.GE.36000. ) GAMO=1.254 
GO TO 1703 
‘1702 GAMO = GAMH(TJETO) 
1703 IF( (ABS(G4MG~GAMO)),LE. .001 .OR.,. IT,.GE.10 ) GO TO 1711 
GANG = GAMO 
GO TO 1701 
1710 GAMO=GAMH(TJETO) 
ITT GAMLSGAMO/(GAMO%1.) ae 
GAM2=,5*%(GAMO"1.) =) oes Mann ee are 2a ce Si tess. 
GAM3=1,/GAM} 
CP=GAM1eRGRGC/GCJ 
TIRJOQZS(PTJETO/PE) &®GAM3 
GO TG KPGU,(1712,1764) 
1712 EJETOE1.S/GCUATIJETO*RTIJVETO*VIET*VIET 
"MIE TOSVJETO/SSQRT(GAMORRGRGC#TJETO) 
GU TO 151 : 
171 ASSIGN 1764 TO KPGO 
GQ TO 1710 
1764 EJETUEI.S/GCIU*TIJVETO®TIJETORVIETRVJET 
: MJETOSSGRT(CTTRJIO“1.)/G4M2) 
VJIETOSMJETU®SORT(GAM*RG*GCHTJETO) 
151 IF( TwO) GO TO 152 
IF(TJFT.EO.TE) QJET=.FALSE. 
GU TO 153 
152 IF(TJET,EG.TE AND, TJET.LEQ.TJETO) QJET=.FALSE. 
__ 153 CONTINUE 
IFC.NOT. QJET) CALL SETM(LeterTCe100) 
CEST. S/GCIATIE ATIC SVIFTAVJET 
TIOSTJET+ S*VJETAVJET/S(GCJURCPJ) CE JET/SCPY 
AMRTOS,FALSE, 
DIROSABS(TTO“TE) 
IF(OTRO.WLT. 45) AMBTOS. TRUE. 
CALL MUVE( 3/0180, Z0I AU, 6,1 -DI Ad, 2Z0TASe 11,1 eMCHANG MCG, 7,1) 


- ae aie 


firn= anesenoetiasienin 


Ce 
"Ce INITIALIZE PROFILES 


Ca 
i 20 NJPENJ+l 


NIMENJe1 
e- Ae in i a AIL eas i tn ah tg st a pt ni nc ls gah —— 
LC® BOUNDARY CONDITIONS**V/VJETZVE/VJET, THETA=0, 
Ce E/SEJETZFEESEJET 


_ Ce ; 
23 THEDGESTE/TJET 
__TE(TURRJ) EEDGESEE ESET Ses, 2 ; 
i UEOGE =VEsvuet 
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if é 1 
Ce 
“Ce MESH DEFINITION AT INITIAL STATION|* TF Y(1).NEWSITS, 


"C® INPUT PROFILES USFD AS GIVEN 

| Ce NJ=CURRKENT SPECIFIED MESH NUMBER OF JET CORNER 
/Ce 

U0=1. 
THOS1, 
IF (TURKS) E0=1. 

DO 2310 LL=1,NC 
ALEOGE (LL) =4LEC(LL) 

2330 ALOC(LLIFSALJ(LL) 

LIF C.NOT, THO) GO TO 2313 


ee en een 


THOSTJETOZTIJET aes. ar oe ae Oa ae. 
UNDSVJETO/VJET 
IF(TURHJ) EO=EJETO/EJET 
OO 2311 LL=t,NC 
2311 ALO(LL)=ALJO(LL) 
Pelee COls Vee RR ee 2 oe ee en oe eae Ts, Pines. 
IF (RESTRT.NE.HITS) GO TO 3840 
IF(v¥(1).NE.BITS) IGO=2 : 
GO TO (21-30), IGU 


~- 
{ 
1 


; 
| 
i 
ee ee oe 


- 


Ca 
"C® GENERATE INITIAL PROFILES 
Ce 
ef COone 
LOw=2 
NE=NJO3 
Y¥(1)20, a 
IF (MIX) YC1)=YCBI 
x PUG U Ret are fe tee ae ee eee eS eee 
THO(CL)=L. 5 A oe or a ane rae 
IF(TURBJ) EO(L)=1.  __ 


ee Se Caer 


Cr 
DYT=(1.e¥CL))/FLOATO(NJ@1) 
CY2=,S*#0VI Se 
LHO=] ‘ 
“TE CT#O) ULHUS2~ 
IF(.NOT,OIFF) GO TO 2161 
r OO 2160 LL=1,NC 
2160 ALX(1,LL) = ALJCLL) 
2161 GO TO (22,2222)+LH0 
iL 22 NDUSUEDGE=U0 
| ~~ DTHSTHENGESTHO 
H IF (TURRJ) DE=FEDGE=E0 
1F(.KOT.OIFF) GO TO 26 
t OO 2170 LL=1-NC 
2170 OM OL (LL) SALEDGE (LL) -ALOC(LL) 


GO TO 26 = es ee 
TEEee CROCS Sew i ee ee ee oe eee 
DTHETHOeL. 

IF(TURBJ) DezE0=1,- ~e a ; 

IF (,NOT,OIFF) GO TO 26 | 

OO 2171 LL=1,NC ; ‘ 
2171 DMOL(LL)IZALOCLLE)=ALJCLL) 
~~ 26 DO 27 LeliineNt ; ; 


a, i aC 
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- yer 


———7 


—_—-- 


TF(L.GT.NJM) GO TO 25 


~ ¥(LVEY(LO1) OVE 


2019 
2620 


25 


2519 


2520 
27 


2223 


$120 
3119 
29 


28 


ANA 


‘> =» 


2802 


“30 


NIMENIO!L 


UOCLIZUNCLOa1) 

THOCL )=THD(LOW@1) 

IF(.NOT, TURBJ) GO TO 2619 
EO(LIZFED(LOM@1) 
JEC.NOT.OIFF) GO TO 27 

Cl’ e620 LLE1,NC 

ALX(L OLLI FALX(LOKOL,LL) 

GO TO 27 

YC(LIZY(Le1) +072 
UN(LISUNCL #1) +.25*0U 
TRO(LISTHD(Le1)+.2S* OTH 
JFC.NOT.TURSJ) GO TU 2519 
EN(LISED(L=1)+.°54DE 
It(,NOT.,OIFF) GO TO 27 

MO 2520 LL=1,NC 

ALX(L LL) =ALX(L=1,LL)*.25*OMOL (LL) 
CONTINUE 
“GO TO (32,2223) | LHO 
OISTEDIAQsDLAJ=(1.40Y1) 
OYISDIST/FLOAT(NJOMNE) 
EDGET=YC(NE) 

LOWSNE 1! 

NESNJOCS 


NJPSNJOOL 

LHO=1 

GO TO 22 

NREMNSNMe@NE 

NE LSNE +] 

CALL SETM(1,UEDGE, UDC NEL), NRMN) 
CALL SETHM(L,TRHEOGE, TRO (NE1),NRMN) 

IFC TURBJ) CALL SETM(1,E EDGE ,ENC NEL), iWRMN) 
BACT) SYC(NE)@YCNIM) 

IFC.NOT, OFJFF) GO TO 3119 

OO 3120 LLE1,NC 
“ALELTSALEDGE(LL) 
CALL SETM(1,ALEL,ALX(NEL,/LL)»NRMN) 
CONTINUE 

GO 10 (29,40),LG60 
DU 28 L=NE1,NM 
YCLY=Y(Le1)40VI 
NPUSMNE 

NPOD=NE 

UD CNPU) SUF DGE 

THO (NPU)STHECGE 
TF (TURKJ) ENC NPU) SEEOGE 
IFC.NOT,OIFF) GU TO 35 
OO 2AO2 LLE1,NC 

AL ACNPU,LL) SALE 0G6E (LL) 
GU TO $5 


PKOFILES INPUT HY USER 


OU 36 LF1,NM 
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Ce 


3840 CALL JTFILE (4,RESTRT) 


"5 
Cr 
“va 


Ce 


Sa 


| 
| 
‘ 


ana, 


"FF € UOCEX.NEUCCKI ) GO To Ge 
G1 CONTINUE 


Ce 





IF( Y(L).EQ.8ITS ) GO TO 37 
3o CONTINUE ~ : 
ERR = ,TRUE, 


GO TN 999 
SF t = lel 
NE zt 
LGO 22 


“CALL FILL CY, UD, 1, NE) 
CALL FILLCY,TIN,1,NE) 
CALL FILLY, THO,L,NE) 


PROFILES OIMENSTONALSe IN,,FPS..DEG, &, 
QD = 2./N14J 
OV = 1L/VJET Pe Se A Os co eee 
ot  #« PefxTrge? — he oe Ai ee ae: gan ee 


CALL FMPYC(1,0D-,Y,YsNE) 
CALL FMPYC(1,0V,/UD0,UD,/NE) 
CALL FMPYC(1,QT,THO,THO,NE) 


CALCULATE TKE FROM INPUT TURAULENT INTENSITY 


TKET = 1,S5*VJETRVJET/(GCUREJET) 
DO 38 L=1,NE 

3B ED(L) = TKET#TID(L)##2 
GO TO 32 








WIDTH QF MIXING ZONE= Y(NJP)<Y(NJM) === 3-MESH POINTS 


GO YJETF = Y(NJS) 
UCCL1 = UO(1) 
0O 41 Le2,NJ 


ERR = , TRUE, 

GO TO 999 ; 
42 4B(1) = YJETE*Y(L=1) 

NPU=NE 
~ NPOENE 

GO TO 35 


NPUSNPD 


“COMPUTE CONSTANT TERNS IN CCFFICTENTS OF POEGS 
35 DIAZOIAJ/12. 
YJETESY(NPU) 


UCLI=UD(1) ee 
__IFCRESTRIWNE. AITS) YJETESYICNRES) 


COEF CI )EI./(VJETAOTA) 
IF (TURBJ) GO TO 770 
CNEF(2)20, 
GU TO 769 
770 COEF CAVEVIET/(GCU*OTAREJET) 
709 JFCQJET) GU TU 771 : 


950 








COEF ($)29. 
CURF(4)20, 
GO TO 77 
771 COEF (3)SEJETZ(VIETHOIASTJET) 
COEF CO) SVIETZ( LCI *# OL 4a TET) 
772 COEF (S)=SDIA/VJET 
COFF(6)=.54018 
COEF (7)=144,*GC/(VJET#VJET) ~ 
| COER (9) S144, *GC/(GCUSTJET) 
Fes 
(C# INITIALIZE COMMON /PROPJ/ 
ice 
{ _RGAS=RG : 
oes IF(,NOT,DIFF) GO TO 7772 
| WMWAT=1545,/RGAS 
CNOCL)=1.70WMHT*VJETROIASTJET) 
7772 MACHEMJET 
P=peE 
[ VSRt F =MUREF 
J TREFZTREF SOE SS ee a ae pee 
SCC=SC 
PRL=PR 
PRTIT=PRT 
MACHOSMJETO 
_ENTRY1=, TRUE. 
IF(RESTRT .NE.BITS) GO TO 996. 
CALL JETPRKP 


"C# PRINT INITIAL STATION DATA 


996 CALL JTOQUTI. 


IF(TAPOT ,AND, RESTRI.EQ, BITS) CALL JTFILE(1,X(NRES)) 


hee 
1000 RETURN 
ENO 


951 


Se a es 





“eDECK JTINIT 


; NO @ CNAMECOY « BEGGS « ALCOCG) » AGEtS) > 
* SC¥(6) » TCPRE(6) »« HCPRE(6) , CPC( 3,6) 
COMMON /DICTRLY OIFF , CND(10) 
LOGICAL DIFF 7 
CUMMON /MULESZ ALX(200,6) = 
COMMON BCMULZALEDGE(6),AL0(6) 
Ce 
_Crasnee INPUT COMMON 
Ce 
CUMMON /INPJET/ ae 
* OIAJ , MJET + TJET , PTJET 
tS eCerser ’ en ola ee 
ee ee NE , ME tp ee a 
* AXT e NJ oy NM ’ 
* x(100) » XPRN(100) , ‘ Sas 
* GAM 1 RG , PR + PRT 
a SC vi + TREF + MUREF — a= 
Ce 
OG 


SUHMOUTINE STINET 
CJTINIT INITIALIZE NEw PRORLEM 
LOGICAL DPRIN 
INTEGER PLOT 
LOGICAL ENTRYI 
LOGICAL MCHANG 
LOGICAL ERR : 
LOGICAL AXI » XPRN , CMPRS , QJET » TURAS , CORE 
FEAL MJET » ME » MUREF 
COMMON /RSTART/ NREG,RESTRT,NRES»MIXPRE 
LOGICAL = MIXPRE 
COMMON /OIFEQIS 





C* MESH COMMON AFTER DISAPPEARANCE OF POTENTIAL CORE 
ce : 
Caseeet CUNTROL COMMUN 


‘ 


, 


, 


Ce 
COMMON /CTRL/ 

acces a) Ye ~¢ CMPRS ~ - % GET ~~ —C CORES C“C‘“‘ 
& NPU ’ NPD o OC o &Y » xoc ’ 
* OSTUR(800) 

Ce 

Casanee PROFILE COMMON 

Ce 

~COMMCIN: SPROFZ PSIT200),¥(200), PRFE(200,5) 

Ce 

Ceawene CONSTANT AND ERROR COMMON 

'Cr 

CUMMON /CNEKR/ BITS , FRR , GC , GCS , FOOT 

Ce 

Caeaske KOUNDARY CONDITION COMMON” = tse ene ee 

| Ce ‘ 

r COMMON /BC/ LEDGE , EEDGE , THEDGE 

Cr 

“Ceseaee POTENTIAL CORE COMMON - 

Ce 


\ 


COMMON /CORFD/ xCORE , Cort | E€ORSIP ~~ 
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VJET 
TE 


“COFF CIO)” 








Ce 
“Cenwaee SCALER (UNITS CONVERSION) COMMON : 
Ce 
COMMON /SCALERZ SP , SV » SLEN 
Ce ‘ 
“Ceeeeee JET PROPERTIES COMMON 
Ce 


“COMMON ZJETS age 4 se ad 3 aaa ies 
# 8(100) « UCClIOO} « TECLOO) « TLECI00) » 

* PTC(100) » wJ(100) » YJC100) , 

* YSONIC(100) 

COMMON SJETIZ FLOWS) TTO,NX,EJET 


COMMON ZEDGE YJETE » SFEDGE 


COMMON /MISC/ PM(10), PLOT 
COMMON /INPI/ ENTRY 
COMMON /JETTWG/ 
* TO , OLAO , MJETO » TJETO , VJETO , 
* PTJETO , TIJETU , NJG a 
COMMON /BCO/ U0, E0, THO 
REAL MJETO,MACHO 
COMMON /CTRL2/ 
* EDGE » SFI » MERGE , XMERGE , YMERGE , 
* SLOPEIT , SLOPEO , CEPTI , CEPTO 


COMMUN /MERGET/ MER, MERSTP , XMRKG amen 2 


LOGICAL TwO,r MERGE , MER , MERSTP 
Ce 
COMMON /MIKER/ MIX,RDN(100),X0(100),CF,YR(100) 
LOGICAL MIX 
COMMON /FLOBALZ MAXIT,SUPB,NIT,PSID,YOD,YOC, 
* , Pi7Per VELA KOL,UPSTRMZCVG =  # # 
LUGICAL SUPB,CVG,UPSTRM 
COMMON /ACUNVG/ YCN(100)-PN(0100),INOC(100), CHOKE, CHOKEO 
LOGICAL CROKE, CRHOKED 
COMMON SOFITS CLSPC100) 
COMMON /STLA/ MACHA, TS24SS2eV2,RHO02,0PD0X2 
REAL MACH2 ~ ; ne ik oF atria 
COMMON /BEMIX2/ GRADU, TWeMUW,RHOW,PTESTTE ? 
REAL MUW 
COMMUN /CROOYZ YCR(100),CLSPCK(100),YCH1 » UCLI 
COMMUN /OUTMIX/ NXORIG 
COMMON S/TNNAME/S NR, TAB(S)/ND,TAD(G) 
COMMON SLLTERP/S LTERPE a eC ee Say 


LOGIC4L LTERP 
COMMON /S5CALEI1/ SCALEC : 
LUGICAL SCALEC 


DIMENSION TAK1(5),TAOI(4) 
OIMENSTON IMP(10) 

EQUIVALENCE CIMPC1),PM(1)) 
DIMENSTON HHO3), CPACS)+ CPEM2(4), CPH20(3) 
DIMENSION CTAKN (6) 

OLTA CTABNS SHATH, SHCA, SHHPO, BAH / 

DATA HH/41595,74,"1644 51 ,94,°119595.,66/ 

DATA CPASHL4S0S+ KL, 9AGE RUS, DADE MKS 

DATA CPLUAH 6214S. 7TOE RS, H1 .094ERbS 
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CUMMUN /UMESH/ MCHANG,CK/DY1,NMSH sa JEXPE EX TPIENRED 


| indole ati 





DATA CPH20/7 236-1 .eTTE RS, ALT SSE SAS 
DATA TAKL/SINX, 2HXD, eHRIY, SHYCH,GHXPRN/ 
DATA TADI/IHY,2RUD, SHT10e SHTHDS 
DATA BITSI/1L.EF1S/ 

MCHANG=, TRUE. 

A\MSH=7] 

CK=1.060604475 

OY1=.001 

CxPC=,02 

CxTP=,02 

NRED=10 

BITS=KITSI 

CALL SFIM(1,/HITS,MJET,10) 
PE=14,609594% 

TE=S1R 688 

TIJET=0, 

Tit=0, 

TWO >.FALSF,. 

CALL SETMC1-81TS,MJETO,4) 
TIJE FO=S0. 
NJO=50 
MERGE=,.FALS!. 
AxIT=, TRUE. 
NJ=30 

NN =BO 





GAM=1,4 
RG=53,34 
PR=,72 
PRTI=1, 
SC=201.6 
TREF=O. 








~ MUREF ZO. 


QJET=. TRUE, 
TURBJ=, TRUE, 


ERP=,FALSE. 


GC=32,174 
GC J=25036,442 
FUOTS1e2. 
CORE=,FALSE, 
SP=1, 

SV=1. 
SLER=SL. 


CALL SFIM(2,BITS¢X%-100,Y¥,200) 
C4LL SETHM(1-0,xRPRN,100) 
DPRIN=,FALSE, 


“CALL SET¥C1,0,,PM,19)— : i a ta ee. a 
IMP (01) =0 

PLOT=0 

ENTRY1=, TRUE, 

MIxu=, FALSE, 

CF=,.002 

MAXTTS25 
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{ SUPR=, TRUE, 1 
- ~UPSTRM=, TRUE, : é ed ; ey tA : - 
CVG=.FALSE, 
TOL=1,E26 | 
CALL SETME1,0,,YCK,100) 
| CALL SETM( G4, KITS, #0,100,x%0,109, YR 6100, YCD,100) 
CALL SETM(1,0-1N0C,100) _ 


oe 


i NK=S ape > ty ek, Sen es eat eS? ke, 
| ND = 4 | 
COLL MOVE (2,TAKI,1T48,5,1,+TAD1,TAD, 4,1) 

NC=3 J 
CALL MOVE (1+ CTABN, CNAME, 601) ‘ | 
4 __OIFF=,FALSE, wh eee | eth ae li ae en 


~ COLL SEIM(2,BITS,4LJ,18,ALX,1200) 
CALL SETM(1447,SCM,6) 
4LE(1)=.999$4 
| ALE(2)=,00033 
ALt(3)=,00033 } 
ALJ(1)=,92 | 
ALJS(2}=,04 
4LJ(3)2,04 om f 
ALJO(1)=.96 
ALJQ(2)2,02 
ALJO(3)2.02 | 
CALL SETM(1,0,,HCPRF, 24) 


ids etch cA SS ACO A a cn i innninn ne oan a eet hemnanatleainil 


ta CALL SETM(1,600.,TCPRE,3) . Sy a ae a, EM eee 
i CALL MOVE (Gp HHeHCPRE Sole CPArCPC( Ly 1) 6 Set eCPCO2r,CPC(L redo dete 
* CPRA0,CPC(1+3)-35-1) 
RESTRTSBITS = { 
NRE S=f \ 
- MIXPRE=,FALSE, ple tt ia nt las ntp calm lan ant eactth aii Sachs anita 2h 
r ~ LTERP2 TRUE. es 
| SCALEC= .FALSE,. ; P , F as : 4 ! 
RETURN : 
i ENO \ 
t - - ' 
| 
| ee ee a en Ee Se ee ee eT 
if 
: 
{ | 
| 
+ tS aC = SEES HS ee ee Se Om RE eS — _ ntsc nese ar ace ie ec a ei a Ne, ie sta — | 
} { 
| 


j 
} 
' 
i 
' 
a et. ee 








| speck JTouTs 


SUBROUTINE JTOUTS 


/cstouty 
LOGICAL EOF 
LOGICAL Ax] 


f PERL MJET , 


» ERR 





JET GUTPUT AT STATION 1 


o XPRN , CMPRS , QJFT 


ME , MUREF 


| COMMON /JETTAWOs 


| [———%* Ind» OFA « MIETO 
| * PTJETO , TIJETO , NJO 
| | REAL MJETO,MACHO 
{ COMMON /DIFEQI/ 
| # NC , CNAME (6) » BLJCO) 
, se * SCM(6) ¢ TCPRE (6) 
| COMMON /DICTRKL/ DIFF , CNLU(10) 
H LOGICAL OFF 
i COMMON /MOLESZ ALX(200,6) 
. COMMON /RCO/ U0, EO, THO 
COMMUN /CTRL2/ 
_* FOGEI ee, SFI = __» MERGE 
® SLOPET , SLOPED , CEPTI 
COMMON SMERGETS MER, MERSTP 4» XMRG 
LUGICAL TWO, MERGE » MER 
Ce 
“Caeaeae TNPUT COMMON 
Ce : 
| “COMMON SENPSETS hay 
t b * DIAJ o MJeT 
f * TIJET r 
& PE o VE 
r e AX] o NJ 
* x(100) » XPRN(100) 
th GRPE’ Sage Ge iam eae = 
ea * SC » TREF 
Cr 


_Ceaeeae CONTROL COMMON 


Cx 
“® NXTA 
* PU ° NPD 


* DSTOR(A00) 
Ce 


, 


COMMON /CTREZ_ 


CMPRS 


Ceaeaees PROFILE COMMON 


| €# 


fo CUMMON PROFS PST C200), (200), u0(C200),THO(CO0) EDL 200) 


Ce 


os fueTo 


, 


4LJ0(6) 


¢ MERGE» YRERGE + 
+ CEPTO 


» MERSTP 


~» QJET 
+ OXC » XU 


* x0D 


"Caseeee CONSTANT ALO ERROR COMMON 


Ce 


COMMON /CNERR/ BITS », ERR 


Ce 


» GC » GCJ 


Caeaeee BOUNDARY CONDITION COMMON  ~ 


C* 


COMMON /BCE/ VEDGE « EFDGE « THEDGE 


CC® 


Caseeee POTENTIAL CORE COMMUN 


Ce 
CUMMON /CURFOS wOCORE , 


, 


’ 


TURBS + 


VIETO - 


4LE (6) 


> TURGI 


» Foot 


CORE » COwSTP 
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’ 


» HCPRE(O) » CPC(3,6) 


CORE 








~~» COEFCLO) 


=o Se 


es 


Bacwis 





if 

,& 7 
Cernnee SCALER (UNITS CONVERSION) COMMON = ic / 

ms) 

i COMMON /SCALERZ SP 4 SV» SLEN 

{Cr i 

 Ceaneee JET PRUPERTIES COMMUN | 

| Ce 

f “COMMON /JETIZ FLOWS, TIO, NX, EJET a} oe te Sanaa wear ge Se { 

L COMMON /A0AMO1/ i 

' 
' ‘ 


® NAME (6), AD00RES(6),TITLE (6), IDENT (6) 

Ce 
COMMON /MIXERZ MIX,RO(100),x0(100),-CF,YR(100) 
LOGICAL MIX — 
COMMUN /FLOBAL/ MAXIT,SUPB,NIT,PSID,YOD,YDC, 
* P1,P2,/UCL+TOL + UPSTRM,CVG 
LOGICAL SUPK,CVG,UPSTRM 
COMMON /ACUNVG/ YCD(100)/PD00100)-TNDC(100)- CHOKE, CKOKED 
LOGIC4L CHURKE, CHUKED 
____CQMMON /DFIT/ CLSP(100) | : 

COMMON /STA2/ MACH2,TS2,SS2,V2eRHO2,0PDX2 

REAL MACH2 

COMMON /RCMIX2/ GRADU, TWeMUW,RHOW, PTE, TTE 


sore emma os 


—— 


. REAL MUW 
Ce * . 
_ CDI MENSTON HEADI (2,2), HEAD2(242), HEAD3(2,2), j 
® FORMI(2),FORM2(2),FUORM3(2), TI(200) MVadciv? + a2. y+) = a 

DIMENSION HEAD4(2,3)¢FORMU(2) | 

DIMENSTON HEADS(2,2) /FORMS(2) | 

EGUIVALENCE (TI1(1)- OSTOR(1)) | 
f EQUIVALENCE (KAXI,AXIT), (KQ,QJET), (KMPRS,CMPRS) 

EQUIVALENCE (KTOn,TwO) { 
b= ROORUALENEE SUINERE MLSE Se ae ee | ea ee 
| DATA 
~ @ READE CEL) eHEADICO,1) ,HEADL CL, 2),HEADE (2,207 7 
i * SHPLANE, 1H ,OHAXISYM,6HMETRIC/, 

i ® HEAD2( 161) eHEAD2A( 251) -HEADO (1,2) pHEAD2(2,2)/ 

L * BHISOTHE ,-GHRMAL »bHN©ISOT,6OHHERMALS, 

; ss ® NEADS CL e ED FHEAD SSeS) HEADS Cl ye) HEAD Ste;c)7 === #==°©—|©)CC~C~<“‘(C SSCS 
1 * OKINCOMP,SHRESS,,OHCUMPRE ,OHSSIFLES, 


PHEADY( 1,1) ¢,HEADY( 2,1) ,HEADU(1,2),KEADU( 2,2) HE AD4(1,3),-HEADU(2,3)7 
# BHSINGLE, TH pOHCO=PLA, SHNAR, HHCO@ANN, GHULARS, 
t # HELOS( 171) eREADS (241) HEADS (102) »HEADS(2,2)/ 
* GHFREE,6H JET,OHCONF IN, GHED JET/ 


ices 
Ce SET VARTABLE HEADINGS 

Cer 

1 NAxT =f 

IF( AXT ) NAXKI=2 

NQ = 1 
IFC QJET ) NQS2 { 
NCMP = 2 | 
IF( .NUT,CMPRS ) NCMPEI1 

NTOW = 0 
IF( TwO ) NTOWSF | 


_NJETT = NTUWENAX] 2 . 
IFCNJETT,LEU, 2 .aND, AXI) NJETISE 
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_— 


KMIx = 1 
= “YF OC MIX) KMIx=2 i awl —— Se hae ee ake SP ie 7 
Ce 
"C* CONSTRUCT HOLLERITH HEADINGS 
Ce 
r DO 2 Lelre ‘ 
1 FORMI(L)SHEAOL(L,NAXT) ee EE Wen DS NN Et Se ae ool eR 


FURM2(L)EHEADA(L,NU) 
FURMU(L)SHEAD4(L,NJETT) 
r FORMS (L)=HESOS(L,/ KMIX) 
{ 2 FORMS(L)=HE403(L,NCMP) 








| Ce 
== Srek<taee. SS a a eo ae ¢ Ree Say TT 
| ___sXMUREF SMUREF a ee ‘ ign Ee eas 
xSC=SC 
L IF(TREF ,NE, 0.) GO TO 3 ei se2 ; a Tae 
XTREFSBITS : 
XMUREF SBITS Saas ere ASS. orale Ba 
xSC=BITS Fig co Cee 
Cr 
“Ce WRITE FIRST SECTION OF OUTPUT oi ‘ ; 
Ce 
Hi 3 WRITE (6,100) FORMS, FORM ,FORM2,FORM3,FORMG, aaa 
* NAME, ADDRES, IDENT, = 
TE, DIAS, GAM,PEMJETORG, ot aS eS en a ee 
i * VE,TJET,PReME,PTJET-PRTI,TIE,VJET»XSC,TIJET, wot bet Se oe a SS 
* XTREF, FLOWS, XMUREF 
IF (TWO) WRITE (6,105) DIAN, MJETO,TJETU,PTJETO,VJETO, TiJETO 
a IF(.NOT, TwO) WRITE (6-110) -— = A 
Ce : 
“Ce CONVERT ED TO TURBULENCE INTENSITY ae a: 
Ce 


~ &@ CONVESORT(2.*GC JRE JET/3.)/VJET 
00 S L=1,NPU 
S TICL)=CONV*SORTCED(L)) 
SCE SO LAMM DR LATE UCR CRI i rn OC, 5 alee Se Ocal ne ye 
Ce 
Re -IFC(DIFF) GO TO 25 
Ce 
_C* WRITE 2=ND SECTION OF OUTPUT 
Ce 
10 WRITE (6,150) 
F< anne Ee ee ee 
‘Ce 
f 20 WRITE (6,200) (LeY(L)ePSI(L)/UD(L),THO(L) TIC L) -L=1,NPU) 
GO TO 30 
hes 


‘ 25 wRITE (6,151) CNAME = 3 ae 
Poo WRITE CO,20L) C(LYCLY/PST(L) -UDIL), THD(L) TIL), —— Pe i, 
* (ALKX(L,LL)-LL=1,6),/L=1,NPU) 





Ce 
_Ce IF CONFINED MIXING,/PRINT PSI OF ODUCT SURFACE 
< . 
30 IF (MIX) WRITE (6,250) YR(1),PSIO ee Ae . = eS 
& 


i _—— wnaen we cien © ee eo wemmraenes oe ae oes - se 


958 


ea ccrtileciasnesees cain i 





lcaakweneadenacesnenenn FORMAT STATEMENTS Akh tteente aenene 


Cs 


| 


Cr 


- 


CA 


1000 RETURN | 


_*#DECK JTMIX2 


oiinanninnl 
an 


i] 








100 FORMAT(1H1,235%, 3H* ,2AbrTIH PRUGRAM a///, 


-eeevuvuneeee ee ee 


110 

105 
* 
* 


150 


Ce 


151 


e1X, THN, 7TX,LHY/ LIX, 35HPSIT,10X, THU, AX, SHTHETAL9OX,CHTI, 


* 
200 
201 
25¢ 


1 
os 
3 


Shs ecAbe lin *) +2ho, 10H es * ,2Ab, 
10H a JETS//, 
lox,6Hes 12h6,2X,20KMIXING REGION sels, 


Tx,O4L071K,60410 S1X,6A10// 

17x,37H* JNPUT BND INITIAL CONDITIONS &//, 
OX, LOMEXTERNAL CONDITIONS, $x,2°4HJET DISCHARGE PARAMETERS, 
Sx,1GHGAS PROPEKTIES//,2u,4hTt =,F 14,3, 6Xe 

CHNTAS =eF13.5¢5%,0HGAM =,F13.5/,2X, 

GHPE =,E14,4,60x,6HMJET =,F13,4,5X, 

ORG =oF15.5/7,20XKe4HVE =,F14,3,6X,6HTJET =,F 13.3, 
Sx,OHPR = =,FI3.5/¢2K,GHME =,F14,4,6X,OHPTJET=, © | 
F1$.4,5xX,6HPRT =,F13,5/2X,UHTIFR,F14,4, 

OY ,OMVIET =F-F13.3+5%,6HSC =F 13.3/26X, 

OHTTJETHCELS.4 + SX, OHTREF =,FIS.3/2 6X, OMFLOWJS FEL S64 SXe 
OHMUREFS,E13,4/) 
FURMAT(/S//) : 4 ak = : 
FORMAT(26X,7HDIAO =rF12.5/26x%+7HNJETO =,F12,47 
Pox, THTIJETO =,F12,35/26X + 7HPTJETIIS,E12,4/ 

26x, THVIETU =F 12.35/26XeTHTIJETOS-EL2.4//) 


FORMAT(23X,26H* INITIAL PROFILES ~ *// 


FORMAT(S35x,26H* INITIAL PROFILES // ee ag 

7x pAb Sp BO Xp AO y SK hb SX yg hby SX, AbS/) 
FORMAT(I3,E1264,E15.4,2F14,8,E16.7) 
FORMATCIS¢EL2 64 ELS e4,2F1L Br EIS. 7 CELL .4) 
FORMAT (//GHWALL, 1PE11.4,E14.4) 


ENO 


QVERLAY(SSNOISE,1,e) 
PROGRAM JIM] X2 
MAIN mee JETMIX OVERLAY(1,2) 


CALL JTCTRL 

re mae 

iw ) eae 
END 
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*OFCK AITER 
: SUBROUTINE AITERI (xx, Dxx) 
CALTER ITERATION CONTROL ROUTINE 
Ce 
_C# AITERIe* COMPUTE H.C, FOR NEXT TRIAL AT MASS BALANCE 
Ca 
LOGICAL ITKx dhe a 
COMMON /MI KER MITX,RD(100),XD(100),CFeYR(100) 
LOGICAL MI x 
COMMON /FLUKAL/ MAXIT,SUPB,NIT,PSID,YOD, YNC, 


| * PL,P2,UCL + TOL, UPSTRYLCVG 
r LUGICAL SUPH,CVG,UPSTRM 
iL COMMON /CNERR/ BITS,ERR,GC.GCJ,FOOT 


~~ LOGICAL ERR 


COMMON ZACONVG/ YCD(100)-PD0100),INOC(100)-4 CHUKEs CHUKED 


LOGICAL CHOKE, CHOKED 
COMMON /DOFIT/S CLSP(100) , 
CUMMON /STA24 MACH2,1S2,S82,V2,RHO2,DPOK2 
REAL MACH? 
~~ COMMON /KCMIX2/ GRAVU,TW,MUW, RHO PTE TTE 
Re dl MuUW 
COMMON /CBUDY/S YCB(100),CLSFCKR(100)-YCBt » UCLI 
COMMON /OUTMIX/ NxORTIG 


a 


Cs 
COMMON /EDGE/ YE,SFE’ 
Fs COMMON /MISC/ PM(LO) © spay aaa 
COMMUN /INWPL/ ENTRYL 
LOGICAL ENTRYL 
COMMON /ZINPJETZ 
* DIGJ,MJIET,-TJETAPTJET,VJET,TIJET,PE,VE,ME,TIEe 
* TE,AXIT,NDUM(2) 5 
a © 6 RELOOFOOUMTACHOL: «=6ORG  E OURESST 
LUGICAL Axl 
FEAL ME,MJET rs 
COMMON /PROF/ PS1(200),¥(200),U0(200)/THD(200),EN(200) 
COMMON /BC/ UEDGE, EF EDGE, THENGE 
COMMON /CTRLZ NXTA,DUMC1(019),CKA,0UMC202) ,NPU,NPD,DUMC 3( 803) 
r COMMON ZPROPJTZ FP, UUM90(12)5 RHUC200)¢MUL (200) -DUMIL(L000) ~~ 
REAL MUL 
Ca 
COMMON /CQIREM/ TOLP,EKRO,DEDP,CTRMAX 
DIMENSION QV(8) 
EQUIVALENCE (ITU®,UPSTRM) 
~ EQUIVALENCE (CMPRS,OUMC1(1)) ha? hp, eae ee tp 
| LOGICAL CMPRS 
Cr 
, &* INITIALIZE ON 1= ST ENTRY 
Ce 
| 1 IFC.NOT, ENTRY1) GO TO 10 
|. FYRRS,. FACSE. a eas a A 
\ CASDTAS*eVJET/FOOT 
' PL=PE 
P2=PE 
PLIMZS 9999999 MPTE 
MYFAIL=10 
[ MXF =O . «Lae 


960 


CS See EE ee ee penne 


a a 











/ Ca 


Ce 
Ce 


'Ca 


Ce 
Ce 
Ce 


Ce 


——_ - ------ 
} 


20 DPDK2=(PA=PT)/0XK 


OPDx2:0, 
GAM=GAMH(TE) 
TOLP=TOL 
PIMP=.OL4PE 
IF(MJET.GE et. 2AND, MELGE, 1.) PUMP==PJMP/S, 
IF(ME,LE, 61) PUMPZEXP (604, *ME“11.515) 
TOLP=TOL 
“EKROZO, 
OE NP S-1.F-6 
MXTEMAXTTZ2 
XNUMSFLOAT(MAXIT) 
CTRMAXSAMAX1(%NUM,0.) 
NITS0 
QV(1)=0, 
CvVG=.FALSE. 
CALL LCFITCXO,YR,NXORIG, O+ XX#D[AJ,YOD,1-0,CLSP) 
PJMPA=,S*#PJMP 





10.860 sf. i 
IF( UPSTRM ) KGO=2 
IFC.NOT. CMPRS) KGO=3 
IF(.NOT. CVG) GU TO 20 


CONVERGED SOLUTION©* RESETe* EXTRAPOLATE INITIAL TRIAL P2 





15 DPDx2=(P2=PL1)/DXx pei 
PL=Pe2 
PP=P1 
P2=P1+DPD0XK2aDXXx 
IF(NIT,GE.12) PUJMPS,18P UMP 
NIT=0 
“€VG=S FALSE. 
Qv(1)s0, 
IF (CHOKE) CHOKE=.FALSE, | 
CALL LCFITCXD,YRsNXORIG,0,XX*DI AJ, YD0,1,0,CLSP) 
GO TO 21 





21 GO TO (40,30,60) » KGO_ 
UPSTRMsTee ITERATE ISENTROPIC PARAMETERS 


30 PRAT=PTE/P2 

~~ BSSIGN 32 T0 “GO 
1Kk=0 

31 GAMI=(GAM~1,)/GAM 
GAM2= Sa (G4M@1,) 
MACH2=ESQHRT(1./GAN2#(PRAT&*GAMJ =1,)) 
TS2zTTES( 1. +GAMPeMACHQae?) 


EEC LOLh CUP RESON SOR Gr Macao, ere ee eo SR Rad am 


32 GAMCEGAMH(TS2) 
OGAMZSARS(GAM*GAMC) 
GAMSGAMC 
IK=I kel on 7a 
IF(OGAM,LE, (2.591) JOR, IK.GT.10) GO TO 56 
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| 
| 


' 
' 
| 
‘ 
H 


Oe ee Se kee Cee! eee Sa eeY eee a 


Be ee See oe 


aan 





“es 


Ca 
Ce 
Ce 
Cea 


ee 


, c* 


_c* 


Ce 


i 


Ce 


bes 


Cr 


ee 


‘clan Sat neat aceneat 


Ce 
Cr 


ao 
» 


anAn 
Pe. 


an mr Uy 
3o ASSIGN 34 TU MGO 
G0 TO $1 


$4 SS2=SSQRT(GAMEGC eRG*TS2) 
Ve=MACH28SS2 
Tw=TS2 
“KHO2E1GG,*P2/(RGATS2) ~ 


SET B.C. AT EDGE OF JET 


UEOGESv2s/vJET 
_ THEOGE=TS2/TJET 
ane 


IMCOMPRESSIBLE BRANCH 


60 IF(.NOT, UPSTRH) GO TO 4O 
TS2=TE 
RHOCS144,*#P2/(RG*TS2) 


V2=SQRT((PTE/P2"1,)#2,*GC*RGATS2) 


UEDGESV2/VJET 


THEOGE=TSA/TJET 
GO TO 50 


UPSTRM=Fee CALCULATE B.@m AT DUCT WALL 


IMPOSE ZERU GRADIENT CONDITIONS AT EDGE OF AL 


40 GRADUSO, 


50 RETURN 


aakeeneerereeaee ENTRY ATTERQ<= NEw TRI&L VALUE OF Pe 


ENTRY ALTER? 


COMPUTE #2 YOC 


___ FC .NOT. UPSTRM) GO TO 120 


COMPUTE DELYE FOR UNENTRAINED FLOWS? 


110 CELYE=S2,*(PSID=SFE)/(RHUCSUEDGE ) 


IFCOELYE.LT.O0.)} CELYE=O, 
__ IF C(4xT) GO TO 111 
YOC=YE*MELYE rs 
GO TO 130 
111 YOCESGRT(YE#*242,*DELYE) 
GO TO 130 


UPSTRMsFeese JET HAS INTERSECTED WALL 
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ADD TO YE 


a ee Se, a Se ee a ee 


| 
i 
cc cai nace cial salient anaes Raiser 4 
i 
{ 








' 120 vocsvE 
Bet Bi ae NR, ee ee 
C*# COMPUTE RELATIVE ERROX IN FLUW BALANCE 
Cs 
| 430 ERKEYDD/YOCet, 
bes 
C* RESET PUMP IF NECESSARY 
[Ep —SESET PUMP IF NECESSARY _ a ee oe eee 
i € 2 


"Ce RESET PJMP IF NECESSARY FOR SUPERSONIC BRANCH 
pe? 


| IF(SUPR ,AND, CHOKEND .AND. PJMPLGT.0.) PUJMP=eP MP 


t 

ie PSV=P2. a 

is 

cs CALL OIREM FOR NEW VALUE OF P2 7 
be 

! 


135 CALL GIREM(P2,ERK,PIMP,QV) 
IF(UPSTRM) P2=AMINL(P2,PLIM) 


TEC UPSTRM) PUMPS=PJMP 

bY IF (P2,EG.PSV) OV(1)20. ; 

Ce 

_C# TEST FOR CONVERGENCE a 
Ce 


136 IF (OV(1),E9.0.) GO TO 150_ 
Ce 


Cx TEST FOR CONVERGENCE ON CHOKE VALUE 





més = = 2 ean 
_ 140 ITF(QV(5),NE.0.) GO TO 160 . iL LPP 
Ce 
en See OM 01S) 2 Ch Se ee ee Ree ee ee ee 
Ce 


CHUKED=, TRUE. | 
CHOKES,TRUE, 
150 CVG=.TRUE. : 
IF(UPSTRM) GU TO 151 
V2=VJET#UD (NPD) 


—— 


IF(UPSTRM AND, MACH2.LE, .1 ) PUMPZEXP(6OU,*MACH2@11,515) 


| 
ninttntnacentiaets Shiniletae + <a-allnrinmienhnasinihonatenciintias welt ime 





~TS2sTJET#THOCNPD) 
GAM=GAMH(TS2) 
MACH22V2/SQRT (GAM*RGaGCRTS2) 
151 PR=P2 
“TEC CUPSTRM,AND.YE.GE.YDD) «OR, CUPSTRM,AND,DELYE.EQ. 0.)) 
* UPSTRM=,FALSE, 











i oe eo eee 
C* 

60 NITE=NIT# 
IF(NIT,GE, MxT) ITKx=,TRUE, 
IF(NIT.LTMAXIT) GO TO 200 

MXP EMXF 44 













Ce 
C*# TEST FOR NON*CONVERGENCE ON YE.GT,YO0 
eC ; : : i 
IF (C(CUPSTRM,AND,YE.GT.YOU) .OR, (MXF,LE.MXFAIL)) GU TO 150 
ERR=, TRUE, 4 : : 
C* 
200 IFC.NOT, UPSTHM) PJMPZ100, «PIMPS 0 
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i 
Riciindastinn 











[ IF(PM(6) NE SO. eOK.ITKX ,OR,P2,FQ.PLIM) GO TO 201 an ae, ar oh 
: RETURN 
201 Tilkxs,FALSE,. i 
WRITE (65250) NITe Xs YUD, VOC, PA-ERK + CHOKE ep UPSTRM , 
250 FURMAT(Z2X,TIMETERATION T2775 40 LHX s LON, SHYODS OKs SHYDC, 
* LOX, AHP 2, 9K, SHERK MX, SHCHOKE , TX, ONUPSTRMsSIX,SELS.SeeL1e/) 
WRITE (6,251) QV : ot RR on ees te he Oe { 
“251 FORMATC/IXe LIMQIRE VECTOR, IX, F4.0-, 7616.87) 
wkITE (6,252) GAM MACHA +V2-.TS2pkRNes YE, SFE 


252 FORMAT (SX, SHGAM, 7X, SHYACHO LOX, 2HV2, LOX er 2HT2, BXe { 

® GHRHO2, 8X, HVE + 7X, SHSFE/IN,7F 12.5) ‘ | 

260 RETURN | 

RS RO IE: GaSe he vot at ee ee eee ee 

| | 

| 

*DECK DERIV See ae es re a 
~~ SUBROUTINE OERIV(OY,F,DFDY,J1,J2). ——— 

CDERIV OFEQ CUMPATIRLE DERIVATIVE : a Lae 4 - 
DIMENSION Y¥(2),F(2),DFDYC2) 
i DENOM(A,6,C)=(A=B) # (AmB) &(CHA) + (CHA) (CHA) *(A=B) Sar ae | 
1 DU 10 J=J1,J2 | 


OER eAaVCSi=¥CFS9N ho ST Te ae se ee ee 
DELB2=¥(J+1)-¥(J) | 
DDC=1./DERUMCY (J) - VO Jet) e¥(JS41)) CN gions ee a ae 
OFCY(J)=(CELACHDELASK(F (Jl =F (J) #DELB2xDEL Bee (F (J) <F (J-1)))*#000 

10 CONTINUE ; - eee es at ERS ’ | 
11 RETURN 

END 





Pa tea naan ancien aetaiieae 
! 
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"eDECK OFEQ 

SUBROUTINE DFEQ(NDIFR,NECL,NRCU,IERIND) 

COFEQ GEN. ROUTINE*DIFFUSION EQUATION EUN®@CENTERED/NON CENTERED 
| LOGICAL FIRST 

|Cs 

rcs 

C*® PDEQ*= EPSLN® (DF /0X) SALPHAtD(KETA® (DF /DPHI)) /0PHIFGAMMO*OLTARF 
Moe ET AR CDF /DPHT) Pree Tr 
C*# FMEZSSOLUTION VECTUR|@PREVIGUS STATION DESTROYED HY CURRENT STATION 
"Ce OFML= DERIVATIVE VECTOR 


ce ALPHA, BETA,GAMMA,ULTA,FEPSLNZETAS@CORFFICIENTS IN PDEQ 


Ce DEL™41,DELM= NORMAL SIEP SIZES AT PREVIOUS AND CURKENT STATIONS 
,Ce OELK= AXIAL STEP SIZF_ OL? PU eee 
| Ce B1,e-C1,01, AN, 8N,0NS HOUNDARY CUEFFICIENTS 
IC 
ics USES NON CENTERED 3-POINT DIFFERENCES ‘ 
Ce 
ies | 
,C* STANDARD IMPLICIT FORM _ ee 
bee NOARD T L f ee Sn ee Dee ae A ee ne 
.€* 


C* BRANCH FOR DISCONTINUOUS FUNCTION FORM REQUIRES INTERPOLATION 
,C* AT EACH MESH POINT. cee 


| Ca 

Ce 
“Ce NBCe-NORMAL BC INDICATOR|*L=LOWER,USUPPER Site hee oe oor 
Cs =0 RACKWARD DIFFERENCE 

Ce st USE TwO PUINTS ABOVE OR HELDK ROUNDARY 

Ce EXTRA COEFFICIENTS STORED IN CARKY(1,1) ANOD/ZOR CARRY($,NM) 

Cr =2 USE 6,C. WHICH SATISFY DIFFERENTIAL EQUATION 

Ce 

t= -ee 
Ce NDIFRFe-INDICATES DIFFERENCE FORM FOR D(RETASOF /NPHI) /DPHI 

Ce =0 EXPAND 2-ND DERIVATIVE % 

_Ce =! USE FORM APPLICABLE FOR DISCONTINUNUS FUNCTIONS 

Ce 


_ COMMON /PARAM/ 


Bt » GI , O1 
an , SN» OW 
COMMON /PAROMI/ = ETAC200) 
: COMMUN /YOFXI/ WLC 
i EQUIVALENCE (PHI (1)+PHI2(1)) 
| DIMENSTON CARRY(200,4) 
_OIMENSION PHI (200) 
OENUM( BA, 66,CC)=(AASBR) #(AAKE) A(COAA) (CC HAA) R(CCHAA)& (CAASHB) 


* ALPHA(200) » ‘KETA(200) 4 GAMMA(200) » 
* FRSLN(200) » OLTA(A290) , 
* FM1(200) » OFM1(200) , 

t * PHI1(200) » NM + PHT2(200) » NM 
* Ox ’ 
* 
* 


(etree cris 


DATA FIRST/T/,NUM/2007 


1 ITERIND=0 
__ IF (OxX,EQ,9.) OX=1, 
NGOLZNUCL EO) 


ee eee een! Oe 


NGOU=NBCU41 Se ee Senne a _ poe 1 
“NOFENDIFFe1L  — iy 
IF (PHIQ(NM) LE.PHIIL(NM1)) GO TO 10 


-C* A400 POINTS TO PREVIOUS STATION TO ACCOUNT FOR MESH SPREADING 


DELMI=PHILCNMI)@PHITONMIe1) 

DELTA=PHI2(NM)=PHI1(NM1) 

| NENDS2¢1F IX (DELTA/DELMI ) #NMI 

J=NMi¢1 

S PHI1(J)=PHI1(J=1)*DELMI 
ALPHA(J)=ALPHA(NM]) 
BETA(J)=5ETACNM) 

~~ GAMMA(J)=GAMMA(NMI) 
EPSLN(J)=EPSLN(NM} ) 
DLTA(J)=OLTACNM) 

i ETACS)SETACNMI) ee ee ar. a | 

6 FMI(J)=FMIL CNMI) 

CS Lee 0 eae Se eae 
IF(J .LE. NEND) GO TO § 
NM1=NENO ite ’ Ter 

r Ce - ee ae i — = = ! 
( 10 NMML=NMof ; : | 
Ce | 
C* CONSTRUCT COEFFICIENT ARRAY FOR NODES 2 TO (NMM1) 
“C® DELTAS AT EACH STATION ARE SAME, BYPASS INTERPULATION SECTION 

C* 


————————EE—— EE eee 


-- 4 
12 J=1 
13 JeJer | Te ORY ae Ve Oe a= he | 
DELI=PHI1(J)=PHI1 (Jet) 
DEL2=PHI1(Je1)-PHII(J) ] 


DELUSPHI2(J+1)°PHI2(J) | 
YSPHI2(J) 
DEL34=DEL3+0ELG 
OEL3SQ=DEL3*DEL3 
OFLUSGSDEL4*DELY 
“~*~ ESSIGN 21 T0 KC 
IF(DEL1.EQ.,0EL3 ,ANDO, DEL2.EQ.0FL4) GO TO 19 
ASSIGN 37 TO KGO 





C* 

TC® LINEAR INTERPOLATION FOR ALP,GAM,FM2,EPS,BETA ETC = 

cs SS eee — - -_ 
. Ne. ee Ss a 


14 ALP=YNF(Y,PHI1,4LPHA,1,NM1) 
GAM=YOF (Y,PHI1,GAMMA,1,NM1) 
FMOSYOF(Y,PHI1,FM1 ote NM1) 
EPS=YOF(Y,PHI1,EPSLN,1,NM1) ~ 
OLTAL=YOF(CY,PHI1,0LTA,1,NM1) 


GO TO (15,16),NDF = fod a) H 
15 w=Y+DEL4 ite ie ee | 
Z=Y*DELS 
BETL=YUF(Z,PHI1,BETA,1,NM}) 

BET =YOF(Y,PHI1,/BETA,1,NM1) ays 
BETUZYOR (we PHIL, BETA, 1+ NMI) 


eo a 
' | 
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| GO TU 30 

Ce 

(C*# DISCONTINUOUS FUNCTION(BETASOF/0PHI) BRANCH 

Ce 
19 GO TO (20,16)—NDF 
160 A=Y*.5*DEL4 

2=¥-.S#DFL 3 ee 7 

“NCGS eae 5 

BMHALFZYOF(Z,PHIL,B8ETA,1+¢NM1) 

FMRALFZYOF(2,PHI1,ETA,1,NM1) 

BPHALFEYUF (W,PHI1, BETA, 1+ NMI) 

EPHOLFEYOF (wpPHIL,ETAr Ly NMI) 

IF(J.NE. 2) GO TO 161 

RSV=BMHALF d : 

ESVSEMHALF 

to) IFCJ.NE. NMM1) GO TO 20 
RSVUZBPHALF 
ESVUSEPHALF 

20 GO TO kKGO , (21,37) 

21 ALP=4LPHA(J) ~ a 
GAM=GAMMA( J) 
EPSZEPSLN(J) 
DLTAL=OLTA(J) 
ETALZETACJ) 3 
FMO=EM} (J) 

TECKOPsEGse) Go tO seu 0 #96 as a ae Se aga 





Ce 

Ce EXPANDED 2eND DERIVATIVE SRANCHeeee 
Ce DCKETARDF/DPHI)/DPRHISDBETA/DPHIT*0F /DPHI+BETARDQF/0PHI2 
Ce ae : 





RET=BETACJ) 
KETUSBETA(J+f) ~ 
BETLZRETA(J=1) 
30 DD=1,/DENOM(PHI2(5),PHI2(J=1),-PHI2(J+1)) a aS 5 ane 
ORE TA=(DOEL $S0* (BETUSBET) ¢DELYSO* (BET@BETL)) *D0 
32 TSV=ALPRDX*O0 7 
TL=2,*TSV*BET 
pT TR STS T9158 YS Se NSA AR ma SS a aC A i 
TN=GAMa0X 
TKZETAL*#0X*00 
IMK=TK4TM 





35 CARHY(Je1)=TMK*DELUSO@TL*0OFLG 

CARRY (J, 2) =EPSH#TLADEL S4tTMK& (DEL 3SQ“DELUSQN) ig gOS es aera + eicaat 
s =DLTA1 40x 
CARRY (J, 3)=-TMKADELSSQ*TL*DELS 
CARRY(J,4)=EPSRFMO4TN 
GO TO 39 

37 TSV=2.aALP*OXJDEL 34 oe aetna 

TLETSV*BPHALF/DELY 

TMZTSV#BMHALF/DELS 

TN=GAM#DX 

TKME,S#EMHALF/DELS 

TKPE S#EPHALF/OELG 

CARRY (J, 1)=~TMeT KM 


rT IS 
' 
' 
' 
H 
' 
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res 
C* 


Ce 


-——_——_ 


Ce 


CARRY CJ /2)EEPS+ TM TL =DLTAL&DO K+ TKPOTKM = 
CAkKRY(J,3)z-TL*TKP 
CARKY (CS, 4) SEPSAEMCHTN 


39 IF(J.LT.NMM1) GO TO 13 


3 


40 


TORE UPPER AND LOWER 16,0, IN CARRY 
DELTLSPHIL (2) =PHI(1) ~ a a 
GU TO (40,46,400),NG0OL 


CARRY(1,1)=0, : - 
CARRY (CE, CP=BLeCI/DELTI 
CARRY(1,S5)SCI/0ELTI 
CARRY (1,4)=01 

GO TO 47 


Go CHRRY( 1-1 )EeCIXPHI(2d/ (PHI (3) (PRI (C3) =PHI(2))) : 


Ce 


CARRY (1,2) SRL CPR (2) +P HI CS) (PHI (2) *PHT (3) ) *C1 
CARRY( 1s S)S9CARRY (1p LI*PHIC SI eeesPHI(2)eee 

COkRY(1,4)=01 

GQ To 4? 





400 DELT2=1./0ELTI 


__ CARRY(t,1)=0, 


DELTIS=DELT2are 


TERM=2, aCL*ALPHA(1) &RSVHDELTIS 
TERM2=2, #11 *ALPHA(1)*OELTO : ee . . nee ee 
CAKKY( Le 2) Feet PL AOL PNAC TL) AOELT2<TFRMMeC{MEPSENCLI/OX 
© #CLaeOLTACL<CLAESV*HDELT! 

CARR Y(),3)=TERM#CL&CSVADELTI 

CARRY (Led )ERC LH (GOMMOCLIFFML CL) ®ERSLN(L)/0X)¢TERM2 


“GT DEL TNEPHI (NM) PHI (NMM] ) 


Ce 


Ce 


UR CARKY(NM,1)5°RN/DELTN 


~ CARRYONM,4) SDN | 


GO TU (46,49,410}3,NGOU 


CARRY (NM,2) =AN*BRN/DELTN 
CARRY(NM, 3)20. 


GO TO 50 


49 PHIML=SPHI(NMM{ ) ® PHI CNMME ) 


PHIM2=PHI (NM=2) PHY] (NMe2) 
ZTA=(2,*#PHIT (NY) APHTONMM LD OPHIMI)S 

we (CPHIM2 42. # PHT ONY) sCPHTCNYME )ePHI(NMeQOS)ePHIME 
DENEL SC OL LTA) SPH TNE DO Z TARP IT (NM@2)) 
CORRY(NM, LIE CL. 274A) SBNSDEN 
CARKY(NM,2) SaN*HN*0EN 

# =bheDL TAC) 
CARRY(NM, S)EZTASHNAEDEN 

~ CARRY (NM, GJ SON se 
GO 10 50 


440 DELTIFZL1./CPHICNM) =PHI (NMML) ) 


DEL TIS=OELTI*82 
TERMSe2, @HNSALPHA (IM) #HSVURDELTIS . 
TERM2=E2, ADNPALPRA CUS) ADELTL aes | 








CARRY(NM,L)STERM*REN@®E SVURDEL TI 

CARRY (NM, 2)=2,* ANS ALPRA(NM) DEL TIFBN®EPSLN(ONM) /DX@ TERM 
® -fNeFSVUSDELTI 

CARKRY(NM,3)=0, e 

CARKY (NM, 4) =teN#®(GAMMA(N™Y) FE PSLENOCNM) @F 41 (NM) /DX) OTE RMO 


_C# CALL TOSEQ FUR SOLUTION TO SIMULTANEOUS EQUATIONS. _ 


SO CALL TOSEQ(CARRY,NM,NUM,ERR) 
IFC ERR.GT.O. ) ITEKINO=1 
"Ca STORE SOLUTION IN FM1 AND CUMPUTE OF/OPHI © 
FMIECT)=CARRY(1,1) 
FMYCNM)SCARRY(NM, 1) 
OFLTL=PHI(2)°PHI(1) 
DEL TN=PHT (NM) @PHI(NMM ) ee eS 
~ TFCRL 60.0, .ANDO, OF E90.) DEMICI)=0, 
IFCAN EQ. 0, 22ND. DN,EQ.0.) DFMIC(NM)=0, 
Js2 
61 FMICJ)=CARRY(J,1) 
FMI CJ¢1)SCARRY(J+1,1) 
OEL A2SPHT (J) -PHI(J91) 
~ DELRA=PHI (Jet ePnl (J) | 
OPDE1L,/DENOM( PHI OCS) ,PRIA( S21) ,PHIO(J+1)) 
DFMICJI=SCDELASHDEL AS (FMI (StL SFMI (J) #DELK2*DELb2 
* #CPMIC SDF MIC J=1))) "000 
JoJel 
IF(J.LE.NYM1) GO TO 61 rs 
OFM LT CL)I=ECREMI C2) -FMICL))/0ELTI 
OFMICNM)S(FMIL CNM) @FMICNMML))/DELTN 


“te 
Ce 
~<3 
NM{=NM 


100 RETURN 
ENO 





‘*0ECK 


_CUME SH 


Ce 
Ca 


JME SHM 
SUBROUTINE JMESHM 


MESH REDISTRIBUTION FOR T 


RANS, REGION 


COMMON /PARKAM/S PUN (16001)65"0200)¢%4,9UM1 (7) 
COMMON SCTRLZ DUN2015)6 NPD, 0UM$(40$) 
COMMON /UMESH/ MCHANG,CK,DY1,NMSH 


CxXPC,CKTP.NRED 
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PSTE=SM(NPD) 
OPSIF=DY1*PSIE 
CKI=CKe1, 
CON=DPSIF/CKI 
00 5 L=1+NMSH 
Quis i i i a a ae ia 
SM(L)=CON®(CKR*EXPH1,) 
NPD=NMSH 
RETURN 
END 





. a a 


a 


ee See Lee 


| DECK JTCTRL 
a ~ SUBROUTINE JTCTRE 
—CUTCTRE MAIN JET CUNTROL ROUTINE 
LOGICAL SUPC,SUPSTP 
| LOGICAL MCHANG 
i LOUGIC4L CORSTP 
LOGICAL BYPASS 


| eee —— OS I rn EE OE RTE 
| 
b 


LOGICAL EOF , ERR 

LOGICAL AxI,CMPRS,GJET, TURBJ,CORE 
INTEGER XF RN 

REAL MJET » ME , MUREF 

COMMON /RSTART/ NREG/RESTRT,NRESsMIXPRE 
LOGICAL MIXPRE 


Hoe eee es ee a 
Cr 

* CWYMON /JBIEVO/ , MJETO , TJETO , VJETO , 

* PTJETO , TIJETO » NJO 

RESL MJETO,MACHO 

COMMON /BCO/ U0, E0s THO 

COMMON /CTRL2/ 





| © EDGED » SFI “euMGRGE 4 XMERGE y YMERGE »- = = = = = = 
* SLOPEIT , SLOPED , CEPTI » CEPTO 
COMMON /MERGET/ MER, MERSTP 4» XMRG 
LOGICAL TwO, MERGE » MER , MERSTP 
Caxeaeea TNPUT COMMON 
C* 
ia ; COMMON /ZINPJET/ ~— Oe AG ees, warp ae = oy oe ee ee 
| * DIAJ ‘ » MJET 0 THIET » PTJET » VJET e 
* TIJET ’ “4 
L * PE » VE o ME » TIE _ TE . 
® AXI 1 NJ » NMAX , 
* x(100) + XPRN(100) , 
[6 6AM oo ~GgROe k Cee i eo IER ae yi ee SS ee mS 
| ‘* SE » TREF + MUREF 
Ce ; 7 
Crean CONTROL COMMON 
Ce 
COMMON /CTRLZ 
[  &e NXT “=e GMeke <p GCN 7 @ TURGO  o GUEFCIOY: =” 
} *# NPU » NPO « Oxe 7 XU ’ XD =: ’ 
j * OSTOR( 800) 
‘ Ce 
"Cemaeee PROFILE COMMUN 
Ce 
“COMMON ZPROFZ PS1(200),¥(200) UD (200), THD(200) ,ED( 200) 
Ce 
| Ceseeee CONSTANT AND ERROR COMMON 
Cr 
COMMON /CNERR/ BITS » ERR » GC »- GCI , FOOT 
Ce 


[Ceeeeas BOUNDARY CONOITIUN COMMON 


Cr 


| Ce 
COMMON /BC/ UVEDGE , EEDGE , THEOGE i rt os 
Caaeeee POTENTIAL CORE COMMON 
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eS i 


COMMON /CORED/ XCORE » CORE » CORSTP 
CUMMON /SUPER/ SUPC,SUPSTP,xXSUP 


Ce 
“Careeee SCALER (UNITS CONVERSION) COMMON 
ics 
COMMON /SCALER/ SP » SV 4 SLEN 
Cie AR ed Sa Adee ee ee ee tind J eres k _Sas Aes 
“Cewanee JET PROPERTIES CUMMON 
Cr 


COMMON /JET/Z 
i * @(100) « UCCIO0) « TECLOO) -¢ FICCIOO) » 
* P1C(100) ¢ wJ(100) », YJ(100) , 
ao teOVSONEGCCIOQE 60 Se ee 
COMMON /JETIZ FLOWSe TT0, NXN , EJET 
COMMGN /JET2/ TIC(100) 
COMMON /UMESH/ MCKANG,CK,OYE,NMSH o CKPC,CXTP,NRED 
COMMGN /JET3/ STAND, NV, STATE 
LOGICAL STADD,STATF 
COMMON /MIXERZ MIX,RO(100),20(100),CF.YR(100) NEA ele nee = ae 
LOGICAL MIx 
DATA BYPASS/F/ 


n-— 





‘ be 
Ce INITIALIZE AT FIRST STATION@-INCLUDE STATION WHERE CORE 
C*# OISAPPEARS AS A CALCULATION STATION TO BE INSERTED 

C* 


“NCALCENXTA 

_1 CORE=,FALSE. 
SUPC=.FALSE. 
MER=,FALSE, 
NXPSNRES 
NXNENXP 4} 
XUEX (NXP) 
1F(.NOT. MIX) GO TO 2 
NVs2 Pe ‘ : aa 
STADO=, FALSE, 
STATES,FALSE. 

2 XDEX(NXN) 
~~" Ox€sxd=xu 

Cr 

“Ce CALL JTSTEP FOR INTEGRATION TO NEXT CALCULATION STATION 

Ce 





“3 CALL JTSTEP 
TLR SCA ae eR ag a iy ee ees arin ee 
* 
Ce TEST FOR DISAPPEARANCE OF POTENTIAL CORE 
ice. 
(Ce 
fcr ALSO TEST FOR DISAPPEARANCE OF SUPERSONIC CORE IF JET IS SUPERSONIC 


Ce 

t “ITUCURE “Saute COnorr i Gets  - ~  @a00e 5 i, esa 
{ IFcsuPC ,ANO, SuPSTP) GO TO 5 

if IF(MER ,ANO, MERSTP) GU 10 5 

SU 10 20 

if 





Ca RELOCATE JET PROPERTIES UP 1 LOCATIONS> 
Ce INSERT XOCOKE AND SET xPRN T 
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a 





lee 
5 ASSIGN 9 TO LGO 
XTEST = X(NXN) 
IFC (XCESTINE.XCORE) AND. CXTEST NE. XSUP) LAND, (XTEST.NE, KRG) ) 
* GO TO 501 ‘ 
ASSIGN 15 TO LGO 
GO TO 8 





Sol NM = @(NXKTASNKNOL) 
NISNXNG] 
CALL MOVE (Se XK ONKN),XONT) NM, 1, BONXN) CHONDA NMO Le 
BR TTCONKN) + TICOND Dp NMe De XPRNCNKN) pXPRNOND DO NM dy 
® YSONIC(NXN),YSUNIC(N1),NM,1) 
CALL MOVE (CS, YIJONXN) + YSJONL) CNMe de UCC NXN) ,UIC OND) > NMo le 
® TCONXN),TCUND oe Nh yo) ePTO(NKEN) ePTICONT I SNMe Le TIC(NKN) e TICCNT) (NMp 1) ¢ 
CALL MOVE CTs WJOINXN) -RIONT) (> NMe 1) 
6 IF (CORE) XO(NXN)=xCORE 
IF(SUPC) X(NXN)=XSUP 
IF (MER) XONXN)=XMRG 
7 XPRN(NXN)= 1 
B IF( CURE ) CORES,FALSE, 
IF(SUPC) SUPC=.FALSE, 
IF(MER) MERS.FALSE. 
GO TO LGU , (9-15) 
9 NCALC = NCALC#1 
NXTOSNXTASI 


ets 
, Ce COMPUTE JET PROPERTIES 
Ce 
1S JFC(MIX) STADO=, TRUE. 
20 CALL JETPRP a 
21 IFCERR) GO TO 1000 
a a 
Cx PRINT PROFILES IF REQUESTED 
tes ai 
. 30 IFC XPRNCNXN).NE,O ) CALL JTOUTP 
, Ce 
_C* IF CORSTP=T, REDISTRIBUTE MESH AFTER DISAPPEARANCE 
Ce OF POTENTIAL CORE a a ee rs eee eae et 
Ce 
40 IF(,NOT, CORSTP) GO TO 50 
t IF(RYPASS) GO TU 50 
| IF (CHANG) CALL JMESHM 
{ _BYPASS=,TRUE, 





tes ON ET Ee EE ae Oe 
,C*# INCREMENT COUNTERS soy TEST FOR END OF PROBLEM 
Ce 
50 NXYNSNXNOL 

NXPENXP 41 
= IF(NXN,GT. NCALC) GO TO 1000 — 

IF(MIX .4NO0,. STATF) GO TO 1000 ee aE RTS ee 
| 1F(,NOT, STAND) NVENVel 

IF (MIX) STADO=.FALSE, 
Ce 
C* CONTINUE INTEGRATION 
Ce 
E 100 xUsx0 ‘ ae wis, Fae in? 
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7 er oe 








_GO TO 2 


Ce 


1000 RETURN 


ENO 





ee 





| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


tse 2 oS aos" oe Ee 
| | | 
’ 
. 
j ' ae 
rae 
| i | j ' 
ae add 
Lee 
a a cae 
ous 
| | ! 
| i 

| | 
| 
(44 
‘ i i 
a 
es rt 
i 
' i 
= 
i 1 i 
| 
' j : 
. 
rf 4 
be 
| | i 
j 


| 


Be Yara ee (nats Gore 
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[eoeck JTEDGE 
SURRUUTINE JTEDGE (CK, YE,PSIE,ADOP) 
i; CIJTEOGE LOCATE EDGE OF JET NEw Y COSORO[NATES 
| LOGICAL HALF 
\ LOGICAL Ax] 
r COMMON /JETT RUS 
| sw TWO > OIG 4 WIRD 4 FID 5 NNT Se 
f ® PTJETO » TIUETU, NJO 


REOL MJETO,MACKHO 
} COMMON /HCOZ U0, EO, THO 


COMMON /CTRL2/ 
* EDGEI » SFI + MERGE , ¥MERGE ¢ YMERGE , 


_* SLOPET , SLUPEO , CEPTI , CEPTO 
COMMON /MERGETS MEK, MERSTP 4» KMRG 
COMMUN /PRUPJ2S MACHO, REFLO,YII,YO,MERGP 
LOGICAL MERGP 
LOGICAL THO, MERGE » MER , MERSTP 
COMMUN /MISC/ PM(10) 
_ LOGICAL AvoP 
“COMMON /SETNEW/S LKK,LCOR 
COMMON /PROF/ PSI1(200)-¥(200),U0(200)+THD( 200) E0200) 
COMMON /YORXIZ/ LEI 
COMMON /INPJETS OLAS+MJET, TJET,/OUMIL(7), TEs AXT,DUMI2(205),RG 
CUMMON /BC/ VEDGE,EEDGE, THEDGE 
COMMON /PROPJIT/Z P,DUMPR(1432) 
~ COMMON /PBRAM/ UDIF (200) /PS11(200),0UMP(1201)+SM(200),NM, 
* DUMP1(7) 
COMMON /ERASE/ ODUME(800) 
COMMON /CTRL/ DUMCI(1S), NPD , DUMC2(803) 
COMMON /XPRIN/ DPRIN y 


Ce 
“Ce AITERT== CUMPUTE B.C. FOR NEXT TRIAL AT MASS BALANCE 
C* 


COMMON /MIXER/ MIX,RD(100),x0(100),CF,¥R(100) 
{ LOGICAL MIX 
COMMON /FLUBAL/ MAxIT,SUPB,NIT»PSID,YU0,YOC, 
* P1,P2,UCL,TOL,UPSTRM,CVG 
“LOGICAL SUPByCVG,UPSTRM : — 
CUMMON /CNERR/ BITS,ERR,GC,GCJ,FOOT 
LOGICAL ERR 
i" COMMON /SACUNVG/ YCD(100),PNC100),1NDC(100)- CHOKE, CHOKED 
| LOGICAL CHOKE, CHOKED 
' 
4 
| 


COMMON /DOFITZ CLSP(100) 

~~~ COMMUN /STA2/ MACH2,TS2,S82+V2,RHO2,DPDKO ~ 
REAL MACH2 
COMMON /BCMIX2/ GRADU, THeMUW,REOW, PTE, TTE 
REAL MUA 
COMMON /CBODY/ YCBH(100),CLSPCB(100),YCB! » UCLI 
COMMON /OUTMIX/ NXURIG 


t*e— ee ee ere ee ee ee 


LOGICAL DPRIN 
DIMENSION STORT (200) 
EQUIVALENCE (STORI(1),0UMP(1)) 
DIMENSION Y1(200),RMU(200) 

EQUIVALENCE CYI(1),0UMP(201)),¢ RHOCL) DUMPC4O1)) 
OATA LFFFs/200/ 


975 


bee 
"ez 
Ce 


Pes 
(* 
Ce 


IF HALFS, TRUE, ENGE IS TAKEN AT SO PCT VELOCITY LINE 


ADDP=,FALSE, 
HACLF=,FALSE, 
IF (PM(U),NE.O0.) HALF=. TRUE. ee ee 
CHECK JET UD FOR JYeST POINT weERE UDSUEDGE 
REDEFINE JET E0GE CUNDITIONS 
0M 6620 LE1,NPO 


I1F(UD(L).EQ.UEOGE AND, UFDGE.EQ. 0.) GO TO 6621 — 
6620 CONTINUE 


6621 NPDEL 
IF(C.NOT. MIX) OR, (MIX .AND, UPSTRM)) THOC NPD) =THEDGE 
IFCC.NOT, MIX) ,OR, (MIX .AND, UPSTKM)) EO(NPO)=EEOGE 


NPD} SNPD#1 

OLFEU=ABS(UEDGE -UD(NPD#])) 
IF(.NOT, MIX) GOTO! 
bO 6720 La1,NPO 


6720 RHO(L)=144,*#P2/(RGATHO(L)ATJET) 


LE1=NPD 
LE=LE1-1 = 
PSIE=SM(LE1) 

RMOESRHOC(LEL) 


(y102) 








UEEZUD(LE1) 


60 TO 468 
Ce 
Cr 
C* LOCATE FOGECS) OF JETCS) 
C*# ef POINT WHERE VELUCITY DIFFERENCE IS ,98*MAX, VELOCITY 
“C*# OIFFERENCE ACROSS THE JET RS Se eee Set est 
Ce 
Cs Pe i : a eae 
1 UCL1=UD(1) 
Lee) 
00 2 L=leNPO : 
UDIF(L)=ABS(UN(L)=UCLI) 
IF(L.EQ9,1) GO TO 2 
TESTASUD(LE1) +1 eF 6 
TESTRSUD(L©1) 91.696 
TF (UD(L).GE.TESTH .AND, UD(L).LESTESTA AND. LLT.LFFF) LKEL 
2 RHU(L) 2144, #P/(RG* THDO(L) #TJET) 
— TESTE =AMAxX1(,98,PM(3)) a ee ar 
ULIM=TESTE *#4hS (CUE OGE-UCLI) 
IF (HALF) ULIM=.5*#ABS(UEDGE=UD(1)) 
| LFFF=LK 
l IFCOPRIN) CALL TAKPRTSQHLK,LK, 161-0) 
| IF(DPRIN) CALL TAKPRT(GHUDIFE,UDIF,NPD,10,0) 
Ce az = . oe a te 
Ce 
Cannan LOCATE OUTER STREAM INE R ReRtRehe 
Ce 
‘Ce FOR OUTER STREAYLINE*S= CHOUSE THE MINIMUM OF INTERPOLATED 


Ce 
I 


AND EXTRAPOLATED VALUES 
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eee 





_ 468 DO 4 L=trLe 


es 
Ca 
ag 
Ce 
Ce 
=a 
Ce 


Cr 


re 


Cr 
ae 
C* 
ee 


1Cr 
los 


} 


> ene 


Ragen 


—_—_--———> 


“CALL MOVE (i+ SM/PSI1,LE,1) 


“DETERMINE Y= COORDINATES BY INTEGRATION OF STREAM FUNCTION ~ 


uN EEHI SO, 


399 CALL INTG(STORI,PSI1,YI,2,LE1) __ 


‘SR CMSX) Cxsles 


LE1=0 : 
DG 300 L=LK,NPD 
IF(UDIF(L).GE, ULIM) GO TO 301 


300 CONTINUE 
SOL CE1=L 


LEsLE1<1 
_SLUPED=(SM(LEL)=SM(LE))/CUDIF(LE1L)SUDIF(LE)) 
PSIEY=SM(LF) +SLUPED*(ULIM*UDIF (LE)) 
IF(.NOT, HALF) GO TO 6 
PSIESPSIEL 
GO 10 8 
6 LEE=LE1-2 
SLOPEE=(SM(LE)=SM(LEE))/(UDIF (LE) -UDIF (LEE) ). 
PSIE2=S“(LE) #SLUPEE* (ULIM*UDIF(LE)) 
PSIEZAMINI (PSIEL,PSIE2) 
8 LJSLKet 
VEE SYOF CPSIE.S“Y,UD,LJ,NPD) 
RHOE =YOF (PSIE,SM,RHUs EJ, NPD) 
4 STORKI(L)=2./(RHU(L) *U0(L)) : 7 rd Laer eae ee 
STORI(LE1)=20/(RHOE®UEE) 


MOVE PSI ARRAY TU SCRATCHS-STORAGE 


INSERT EDGE STREAMLINE 


PSI1(LEL)=PSIE 


USE TRAPEZUTOAL RULE 


YCR1=0, 
IFC.NOT, MIX) GO TO 399 

COLL LCFITCXO, YCH + NXORIG,O, X*DI AJ, YI C1) 51/0-CLSPCB) 
YCRI=YI(1) 

IF(AxI) YIC1)=20, 


YESYICLEL) 

YSVEYE 

IF CAX1T) YE=SQRTCYCAL ee 2+2, 1b) 
MOVE YI VALUES TO Y AKRAY 

LX=LE 


GO CALL MOVE CI +VYI+Y-LXe1) 
IF (MIX) GO TO 8888 


CONTINUE INTEGRATION TO NPOW1 
EXTRAPOL ATE FOR NPD POINT 
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an 


RRA? 


3A11 CONTINUE 
Ce 
C# DETERMINE IF NEW POINT IS TO BE ADDED 
* 
~——_—— loetc ened es 
C# JF TwOsT AND MERGESF, LOCATE ROUNDARY 
C* 
} IF (MERGE ,OR. (NOT. TwU)) GO TO 30 
l ULIML=TESTE*S58S(U0%1,) 
TEST2=U041,b%6 
ro TESTISUOSL LE ob er om 
Ce 
| C# LOCATE NEAREST MESH POINT 
Cr 


| 
| 


abe 


aon 


RRY 


RAR 


AaRe 


ARS 


NPOLENPOe1 

Mx>] 

IF CNPDI.EQ. LED 
IF (NPOL.EG. LF) 
DU G2 Lelbt,NPOY 
STORTCLIYS2A./CRHOCL OUD(L)) 
CALL INTGCSTORTS SM,YeLFELeNPOI) 
IFCUEDGE sGT. 0.) GO TO B8n7 
Gli TO (ABR.RBG), WK : 


Mxs2 
GU TO #8e7 


ue 


GU TO ARAB 

SLOPF ZC YSVer(NPOT)IZCULIM@UDTECNPOI)) 
VCNPO) SYS ¥4SLUPE of ITF (NPD) LIM) 
SLUPE ZC YS¥=YONPDLT) D4 CPSTEeS*INPDI)) 
YONPU) ZYS¥ eSLUPE @(SMUNKI))@PSTE) 

GO TO AKRA 
STORKTONPD) EO. 7(HHUCNPD) @UD(NPD)) | 
CALL INTGCSTURET, SY, ¥-NPO,NPD) 
y(1)2yYCAl 

TFC.NOT, 4x3) GO TO SAN 
IFC.NOT,DPRIN) GO TH 19 

COLL TAMPRTCGHPSII,PSI1,LE,10,0) | 
Carte TAdPRT(CGmMY(L),4¥-NPD,10,0) 

COLL TAHRPRI(SHYI(L),YI-LE,10,0) 
CALL TARPRT(SHSTORI,STORI-LE,10/0) 


WEITE (66107) PM(G),UEDGE,ULIM,PSIE,NPD, 


107 FURMAT({x/s/ 


1 20, RHPM(G) =,E1G.6,2%,8KUE0GE =,F 14 
2 ReRSTE =rFl4.os/ TERT Ee 

3 2x, BHNPD =,16,10%,BHNPDI 

G BRLE =,los/ 

5 20, kM =, 16,10, KHHALF 

6 BRYCAL =,b14.,6) 


19 CONTINUE ; 
DO 7? L=2,NPD 
7 YCL)=SARTCYCHLS#2¢2,8Y(L)) 





DU 200 L=1,NPD 
IF (CUD(L).LE.TESTO 
IF CUD(L) wee U0) 


e AND, 
Gu tl 


UN(L).GE. 
229 
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SLUPEECY(NPUL HV (NPOL 91) )/CUDTF (KROL) -UDIFECNPDI<1)) 
VONPOJEVCNP OLD OSLOPE S (UD LE (NED) eUDITF (NPDI)) 
SLUPE SCY CNP DL © (NPDT91) 70S" (NPU1)=S¥(NPDI9})) 
VONPD)ZY(NPDI) © SLOPE OCS (NED) eS¥(NPDI)) 


aby 2K, BHUL IM 
=,16,10X,AHLE1 


2,l6,10K,A8HMIX 


TESTI) 


i 
py eee eee Oe 


-4 


NPOLsLELeLEeMXehALF MIX, YCBIL 


LOD 8 SAE, on 


=,lo, 10K, | > s. —_ ace 


=,L6,10X, 


stant ee ee een eae TR 


OF INNER JET 


pbk Tl 





[ 200 CONTINUE — 


, 


Cr oc a : sot 

(Ce ASSUME JETS HAVE MERGED]~ SET CO-ORDINATES OF MEKGE PUINT 

C* 

| MERGES. TRUE, 
MERGP=,TRUE, 

SFI1=SM(NMERG) 

f ~~ EDGETZY(NMERG) | 

XMERGE =X 

r YMERGE=EDGEI 


———— --- ———- te rn = ——-—_—— — ian 4 


"cs COMPUTE COEFFICIENTS IN LINEAR EQUATIONS CONNECTING THF ; 
EGS. SUS TLE CORRERS 01. te BERGE COST 


= SV See Re ER SS EE 4 
Ce 
[ CEPTIZ=DIAO/DIAV 
SLOPE T=(YMERGE@CEPTI)/XMERGE 
. CEPTOs1,. 
SLUPEO=(YMERGE*1,)/XMERGE 
Ea eS ROE RSE re 
Cs ae ee eS 1 
_C* SET NMERGE TO Lei, STORE INNER EDGE SF AND CO=ORDINATE 
Ce i 
259 NUSL 


DO 260 L=1,NU 
IF(UDIF(L).GE.ULIML) GO TO 210 
“266 CONTINUE. = -—~—=~CS~S a ae ee 
210 NMERGEL 
NMKG1=L-1 
SLOPS=(SM(NMERG) =SM(NMRG1))/(UDTIF (NMERG) “UDIF (NMRGL) ) 
SFI=SSM(NMRG1) +SLUPS* (ULIML “UDIF (NMRGI)) : 
SLOPY=(YCNMERG) ©Y(NMRG1))/(SMC(NMEKG) =SMC(NMRGI ) ) 
EOGELZY(NMRG1)+SLOPY*(SFI“SM(NMRG1)) <— 
30 TESTUS.005 
IF(PM(2).NE. 0.) TESTU=PM(2) j Pe ie e ae 
IF(LKK.LE. 3 4AND, UDIFC(NPD).EQ.UDIF(NPOI)) LKK=4 
i IF (OIFEU,GT. TESTU OR, LKK,LE.S ) ADDP=,TRUE. 
LKAKILKKe] 
LECOPRENY. WRITE CG; 72cc) ADDP.DIFcUL. ESTO. =6CSCCSC~C“‘“< SSS!!! q 
7222 FORMAT(//12X,L6,2x%,2E16.8) 








100 RETURN 
F END 


}- —-——————_- - — —-— --— - -- —_--_—.--.- Ee ae ee eee ee 
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f 
_*DECK JTSTEP 


_cyTste 


os 


SUBROUTI 


LOGICAL 
INTEGER 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
REAL KCP 
REAL MJ 
COMMGN 
LOGICAL 





NE JTSTEP 
JET*=SOLUTION ROUTINE 
BOYCCE 

TwOJe ITWO 

SUPC»+SUPSTP 

SUBSON 

TROUBL | 

DPRIN 

LAST,CURSTP,ADDP,ENTRYIL,IER 
fOF » ERR 
AxI , XPRN , CMPRS , 

eMUL +>MUEFF MACH | 

ET » Me , MUREF 


QJet , 


MIXPRE 


TURBJ » 


JRSTART/ NREG,RESTRT,NRES+MIXPRE 


CURE 


COMMON /MOLUP/SALXU(200,0)/-DALKU(200,6) ,D0TKE (200) 


COMMON /OIFEQIZ 
____* NC_, CNAME(6) » ALJ(6) » ALJ) , 
* SCM(6) , TCPRF(6) » HCPRF(6) , 

COMMON /DICTRLZ OJFF , CNO(10) 
LOGICAL OLEF 
COMMON /MOLES/ ALX(200,6) 
COMMOUN/BC™OL/ALEDGE (6), ALO(6) 
COMMUN /JETTHOS 
* Iwo  , OFA, 
* PTJETO , TFIJETU , 
KEAL MJETO, MACHO 
COMMON /6CO/ U0, 
COMMON /CTRL2/S 
* EDGEL . SFI + MEPGE ,», XMERGE ,» YMERGE » 
SUGCEL 7 store 7 Chet) ~ Ceeha 9 © = = = 

COMMON /MERGET/ MER, MERSTP , XMRG 

LOGIC4L THU, MERGE » MER » MERSTP 

COMMON /SETNEW/ LEOGE, LCORKEN 

COMMON /INPL / ENTRY} 

COMMON /MISC/ PM(10) 
“COMMUN /PARAM/ 
x AL(200) » BEC200) , 
* EPS(200) » OL(200) ’ 
* VAR(200) » OVAR(200), 
* §M1(200) » NMI ’ 
ii Ox U ° — 
eet »¢ GEY « OL s r 
* AN , BN » ON 


ALE(6) + _ 
CPC(3,6) 


eT MJETO , TJETO , VJETO », 


NJO 


E0, THO 


GM(200) , 
S™(200) o NM ’ 


——— 





lee 


Crantan 


os 


“COMMON /INPJETZ ~~ 


> es Peeee 


COMMON /PARAMI/ ETA(200) 


INPUT 


Olas 
TIJET 
PE 

Ax] 
xJ(100) 
GAM 


COMMON 


» MJET » TJET 
, 

» VE ME 

» NJ NMAX 
+ XPRN(100) 
’ 


Ri 


- er 


PR 


980 


, 


| ee 


7 XU 


’ 


MUREF 


QJET 
oe S00 5 


TURKJ 


’ 


COEF (10) 


COMMON /PROFZ/ PS1(200),¥(209),U0(200),THD(200),£E0(200) 


* SC » TREE 
“ea 
Ceaneee CONTROL COMMON 
Ce 
COMMON /CTRLZ 
* NXTA + CMPRS 
* NPU , NPD» DXC 
i * DSTURK(B00) 
C* 
“Ceeaeee PROFILE COMMUN 
Ce 
| C* 
“Caeeaae CONSTANT AND ERROR COMMON 
Ce 
i COMMON /CNERR/ BITS 
Ce 
} Carseat BOUNDARY CONDITION COMMON 
C* 
| ce 
Ceaxaeee POTENTIAL CORE COMMON, 
Cr 
i COMMON /COREO/ XCORE 
Ce 


~~ COMMUN /SUPERZ SUPC,SUPSTP, XSUP 


ERR 


» CORE , CORSTP 


GC , GCJ 


Cereeet SCALER (UNITS CONVERSION) COMMON 


Ce 
CUMMON /SCALER/- SP 
~he 


Crsannae JET PROPERTIES COMMON 


ee 
COMMUN /JET/ 
* B(100) » UC(100) 
* PTC(100) , wJC(100) 


— 
COMMON /PROPJT/ 
i=} 7 PRL ’ 
THEFF » VSREF ’ 
REFL ria) ’ 


COMMUN /XPRIN/S DPRIN 
COMMON /EDGES YJETE 


» SV 


» SLEN 





FooT 


~~ COMMON /8C/ UEDGE » EFOGE , THEDGE 


* TOCLOOY 5+ TICCLOOS | 
r YJ(100) 
COMMON /JETIZ FLOW, TTIO,NX,EJET 


PRIT 
MACH 
CHI 


RHO( 200) « MUL(200) 
MUFFF (200) » XLN(200) 


» RGAS 

» XLC 

» RNCURM 
KCP (200) 
OK (200) 


SFEOGE 
CUMMON /UMESH/ DUMUL(C4),CXPC,CXKTP,NRED 


, 
, 


__ COMMON ZERASEZ YD(200)+fKE(200),T(200),0UDY(200) 


scc ’ 


RETURK (200) 


"3 COMMON /MIKERZ  MIX,RDO(100),x0(100),/CF,YR(100) 


“LUGIC4L MIX 


LOGICAL CHOKE, CHUKED 
COMMUN JDF ITZ CLSP(100) 
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COMMUN /FLOBAL/ MAXIT,SUPB,NIT,PSID, (9D,YNC, 
} * PLipP2,~UCLs TOL, UPSTRM,CVG 

LUGICAL SUPK,CVG,UPSTRM 
COMMUN ZACONVGZ YCD(100)¢PO(100),-INDC(100)+ CHOKE, 


CHOKEO 





[ COMMON /STA2/ MACH2, TS2,S82,V2,RH02,0P0 «2 
REAL MACH 
COMMON /BCMIX2/ GRADU, TWeMUW,RHOW,PTE,TTE 
REAL MUW 
CUMMON /THERM/ GMC (6200),CP (200) 
COMMON /CRODY/ Y¥CH(100),CLSPCH(100)-YCB1 » UCLI 
COMMON /OUTMIX/ NXORIG 


DIMENSION UU(200),bU(200),THU( 200) 
| DIMENSION UK(200) 
DIMENSION NAM(6) 
OIMENSTON YUC200) _ 
EQUIVALENCE (CYUC1),OSTOR(401)) 
EQUIVALENCE (UK(1),O0STOR(1)) 
EQUIVALENCE 


* (C5, COEF (S)) + (Co,COEF (6)),(C7,COEF(7)) 

ve EQUIVALENCE (C9,COFF(9)) That 
EQUIVALENCE (ITWO. TWO) 
DATA NAM/1HY,2HSM, 3HXLN,2HUD, CHEDs SHTHOS 

* DATA ENTRYL/T/ 

Ce 

“Ca TEST FOR 1*ST STEPCENTRY1L=T) 

Ce 


t 


# (C1-CNEF(1)),(C2,CUEF (2)),(C3,COEF (3)),(C4/COEF(4)), 





~ ASSIGN 16 TO LGUP- 
IFCENTRYL 2 AND. (RESTRTILEG.BITS)) CORSTP=,FALSE. 
S IFCENTRYL) OX=AMINI(CXPC#B(NRES), -S*0XC) 
IF(CRESTRT .E0. KITS) GU TO $326 
IF(NREG.GT. 1) OXSAMINICOXTP®H(NRES) 4 eS*DXC) 
S320 IF CDXC.EN.0.) GU TO $327 
~EELEASLE. “GO Nieoser oo 8 
Ox=4MIN{ (OK, .5*#0xC) 
5327 CONTINUE 
IFC.NOT, ENTRYL) GU TO 9 
Ce 
CeeerrENTRY LeeINITIALIZE FOR 1°ST STEP, eee 
Cr 
CALL SETM(1,0.eETA,200) 
TGVCLES PAUSE, 
TwOJ = ! 
IF( TWO) TwOJt2 


~® EN,EU,NPU, 1) 

IF(.NOT,. OIFF) GO TO 7000 

OO 7001 L=1,NC 

CALL MOVE CL» ALKO1,L),ALAUCE- Le NPU,1) 
7001 CONTINUE 
7000 NM=NPU 
NMY=NPU 
FO=ED(1) 
THC=THO(1) 
IF (NOT, TURBJ) CALL SETY(2,EC-E0,200,FU, 200) 
IFC.NOT. QJET) CALL SETM(2, THC, THD, 200, THU, 200) 
FPS120, 
IFCAXT) EPSIEL, 


— 
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CALL MUVE(S, PSI, SM, NPU, 1,PSI S11, NPU rl 1U0e UUs NPUs te THD THUs NPOele _ E 


2 ae 


| Cr 
4 LAST=,FALSE. 
ADDP=,FALSF,. 
IF(RESTRT.NE. HITS) GO TU 6 
CORSTP=,FALSE, 
SUPSTP=,FALSE, 
MERSTP=,FALSE. 
NREG=1 
SUMSON=, TRUE, 
IF(MJET.GE.1.) SUBSUN=,FALSE, 
6 X=KXU 
LCOREN=1 
LEOGE=0 ae LS = 
CALL SETM(1,C1,AL,200) 
CALL MOVE (1,Y,/YU,NPU,1) 


sae ite Sa: 


—y 


Ce ’ 
| C* INCREMENT STEP COUNTER, XeSTATION FTC. 

Ce RETURN FOR NEXT STEP IS MADE TO THIS POINT, 
Ce 





r 6B NSTP=NSTP+1 eee arity rae 
4 9 X=x4Dx 
Ce 
_C* IF COANNULAR PRUBLEM, SAVE U0, THO 
Ce 
oaden IF(,.NOT,. TWO) GO TO 9966 
USVGsOCG. Wie oe Geo ke te, ae eae 
THSVO=THO 
9966 IF (MIX) CALL AITERI(X,0X) 
NHALF=0 
IF(RESTRT.NE.BITS) GO TO 10 
ei SECENTRVYE ORs SCYELE) GO TO 20 
Cs ie a 


_ Ce IF 1*ST STEP PROPERTY CALCULATION IS HYPASSED 
Ce 
10 CALL FMPYC(1-C6,Y,YD,NPU) 
CALL FMPYC(L-EJET, ED, TKEsNPU) 
teen CALL FMPYC(1,/TJETs/ THO, T,NPU) 
Ce Sa 
_C* CALL SCALE TO COMPUTE WIDTH OF MIXING ZONE(S) 
C* AND REFERENCE SCALES FOR TURBULENCE 
Ce 
r 12 CALL SCALE (UU, TWOJ,NREG,X) 


TCs COMPUTE PROPERTIES 
15 CALL PROPJ(TWOJ,TURBJ»NREG,X, YO, Te IKE, 1p NPU) 
CALL GAMCP(T+GMC,CPYRGs1,+NPU) 
GO TO LGOP, (16,1001) 
* 


C*# “AOD MESH POINT TO DOWNSTREAM STATION IF ADOPST, 


ADDP=,FALSE. 


* 

16 IF(,.NOT.,ADOP) GU TO 18 

17 CALL PADD(SM,NPD,NREG) 
18 NMZNPO 
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C# ASSURE THAT UPSTREAM PSI IS FAR ENOUGH QUT 


te I 


IF (SMI (NPU).EQ.SMC(NPO)) GO TO 2¢ 
SME CNPUFL)ESM(NPO) 


Ce EXTRAPOLATE APPROXIMATE ¥ 
C*# LINEAR EXTRAPOLATION 


te _—-—_—_—_-—— = = +--+ 


NPUSNPU4L 
NM L=NPU 
OYDPSLTECYCNPUSS Je¥(NPUS2))/ 0S) (MPU ND) @ SMI OC NPUS2)) 
YONPUDEY(NPURA1)40YORST* (S41 (NPU)=SM1 (NPUSI)) : 
UUCNPU) SUUCNPUH1 ) 
THUCNPUDSTHUCNPURST) 
EUCNPUSSEUCNPUR4E) 
TONPUJETIETATNUCNPU) 
TRE (NPU)SEJETREU(NPU)D 
YOCNPU) =Co*eY(NPU) 
JF(.NOT. DIFF) GO TO 7002 
OO 7003 L=1,NC iy ed Gas 
7003 ALXUCNPU,L)FALXU(NPUSI,L) 
7002 CALL PROPJ(TWOJ,TURBJ,NREG,X,YD,T, TKE,NPU,NPU) 
CALL GAMCP(T,GMC,CP+RG,NPU,NPU) 





-—— 


“8 
_Cs##e SOLUTION OF MOMENTUM EQUATION 
Ce sere add be ee ee ee ene ra ae eee 
20 CALL MOVE(1,UU,VAR,NM1,1) P _ 
Ce 
C*® TEMPORARILY SAVE CURRENT Y VALUES UN ITERATION 
Ce ime ar ee ee 
IF(MIX ,AND, (NOT. ICYCLE)) CALL MOVE( I+ ¥,YU,NPUS1) 
~ CALL SETM(1e1.ebPS,NPU) | ner A RE EO ct Ey eg Ne ee 
. CALL SETM(1,C1,AL,NPU) =. tet PES 
CALL SETM(26 96.66%, NPUP DL NPU) 5 SS ee ae ap 
ENTRY1=, FALSE. 
IF(RESTRI.NE.BITS) RESTRTISBITS ; oe Sones 
Ce 


WRITE (6,680) NSTP,XeOX 

BORO FURMAT(//6xX¢SHSTEPSe 14s 8X p 2HK=Z,E 16,8, 3X, SHOKE,ELO.A//) 
WRITE (6, B@6¢1) VYJETE + SFEOGE,EOGEI,SFI 

BOB1L FURMAT( OX, HHYJETE=¢E LO, 4s OX, THSFENGESLE16,8/, 
* Bhp OHEDGE IT Seb 16.8 s AX s (HSE =,t16,8//) 


me TEAL TARPRT CNAME EY, Ye NPUL10,0) ey) fe eae ae ee 


CALL TABPRT(CNAM(2),54,NP0,10-0) 
CALL TARPRKT(NAM(C3),XULN,NPOD,10,0) 
19 DO 21 L=2,NPU 
RAODZ=1,. 
TE COxXT) RADSY(L) #42 


| 
| 


23 BECLIEMUFFF (LI #R HCL) MUUEL) #RAD 
f IEC.NOT, TURBS) BECLYSMUL(L) #RHO(L) *UU(L) #RAD 
21 CONTINUE 
BE(1)20, 
TFC,NOT, AXE) BECL)=MUFFF OT) *RHOC1) *UUCL) 


te i cack i tl caning 
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"ARE GROE CORE GU CGR eee. | ar Ba Be” ee oe 


TE CMI x) GM (LY SC7SDPDK2/(RHO(LI*MUUTLYY as ST ee 


ee ee 


ie Sree ae Sa ee eee 


ee eee eee re een 


a al a a a ae hh ee 


—e 














les BOUNDARY CONDITIONS 
"Ca amatoms - - 
B1=0, 
| Cil=. 
O1=0, 
if AN=1, 
het BN=0, _ 
[ 22 ONZUEDGE 


IF C,NOT,MIX) GO TO 24 


Ce 
lcs B.C. FOR CONFINED MIXER 
| ce 


__ _ ., FF CURSTIREY CO TO-e6. ee Sa, ee ee es. Pe 
r AN=0, 
L ON=GRADU : : A 
| BN=1, 


24 CALL DFEQ(0,0,0, IER) 
___IFCTER) GO TU.999 


fe emcee ee 

Ce 5 

re 25 CALL MOVE (2, VAR, UDs/ NPD, 1,0VAR,DUDY,NPODe1) : = a 
IFCUEDGE.EQ,. 0. «AND, UD(1),GT. 1.) UOCL)=l. 

C* 

a apa = = : 7 

oS ulema ee lle Ape wn Soca aie = Bree ce an 7a, Sean pee Se re PART ee nee 

C* VALUES OF UO WITKIN UD(1)SUCLI1, SET TO UCLI Y 

a 


UCL1=UD(1) 
CLUZSUCLI+1.E°6 
CLL=UCLI°1.E=6 
COO DOSER e GSU ON eh oe = 
IF(UD(L),GE.CLLE .AND, UO(L).LE.CLU) Un(L)=UcLi 
1111 CONTINUE 
OO 1112 L=i-NPU 
UK (L) =YOF (SM1(L)+S",UD, Le NPD) 
DUDY(L)=YOF (SM1(L),SM,OVAR,1,NPO) 
A112 CONTINUE LOS. Ce Re ae eee. 
3 IF(OPRIN) CALL TAKPRT(NAM(4),UD ,NPO,10,0) 


ee NS SS a Ee) SN ee SENET: eee! eer Come Senne em 


_c* 
Ce 
{ce oe sa 
C* TEST FOR TURBULENT PROBLEM 
Cr 
“36 IF(.NOT. TURBJ) GO TO 7010 
Ce 
“Crane SCILUTION OF TKE EQUATION 
{ce | 
ms { 
{ 
| 


. — —< — = = ' { 


30 NML=NPU 
CALL MOVE(T EU, VAR, NPUSI) 
OO 31 L22,NPU 
RAD=1, 
IFCAXI) RADEY(L) #22 
ROZKKO(L) *UK(L) 
BE CL) =MUL(L) *DK(L) ®RD®RAD 
_DUDYSHENUNY (CL) #DUNY(L) roercre — : 
GM(LIECAehUuL(h ACME FF CL)SMUL CLD HL.) ®RO*DOUDYSO#RAD | 
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IF(RO,EQ.0. OR, UOC(L).LE. .005) GO TO 33 
OL (LI S9CS*C#MUL(L) FORK (LIS (CRD ®KENCL) #@XEN(L)) 
60 TO 31 
33 OL(L)=0. 
L GM(L) 20, 
31 CONTINUE 
orf - [a et ae 
IFC.NOT, AXI) BE CL) =MUL(1)*#DK(1)*#RRO( 1) *U0(01) 


t AN=1. 
| BN=0, 
32 ON=EEDGE 

IF(.NOT, MIX) GOTO 34 
IF(UPSTKM) GO TO 34 
} AN=0, 

ON=0, 
| BN=1, 
| 


34 CALL DFEQ(0,0,0,1ER) 


“TF CIER) GO TO 999 te eS ae Se te ei eae 
, Ce ~ 

C* SCAN FOR POSSIBLE NEGATIVES AT JET EDGE*-(UEDGE=0) 
Cer 


IF (UEOGE.NE.0.) GO TO 35 
Ce. 
IF(VAR(L).LT.9.) GO TO 3392 
3391 CONTINUE 
Gu 10 35 

3392 LK=L=1 

LL=L 

SLOFE=(VAR(NPD)@VAR(LK))/(SMCNPD)@SMCLKI) wae 
~NPDLENPOD#} . : =e nee fr" 

60 3393 L=LL+NPODI is 
“3393 VAR(L)=VAR(Lo1)*SLOPE®(SM(L)=SM(L#=1)) 
Cx 


—— 


35 CALL MOVE(1,VAR,ED,NPD,1) 
CALL MOVE (2,0VAR,OTKE,NPD,1,RE+OSTOR(601) sNPU,1) Nae 
IF (OPRIN) COLL TABPRT(NAM(5),ED »NPO,10,0) 
Ce 
“Ce TEST FOR SPECIES DEQS 
Ce 
7010 IF(.NOT.OIFF) GO TO 50 
CALL SETM(2-U.+6M,NPU,OL/NPU) 

rE RiieRiaaned iain ican ations 
C*# SOLVE SPECIES EGUATIONS// AIR MOLE FRACTION 
C* CUMPUTED BY DIFFERENCE (COMPONENT 1) : 
Ce 

7020 DO 75uG LL=2,NC 

NMI =NPU oan peeetae : 
“CALL MOVE (CT ALXUC1,LL), VAR, NEUSE 
00 7100 L=2,NPU 

RAD=1, 

IFC AXT) RADHY(L)##2 

RD=KHO(L) *UK(L) 
BE(LISMUEFFCLIZSCM(LL)*RO#RAD 
7100 GM(L)#0, 


<a. —--- --- 


aE eames melee SARE 


' 
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- BE(1) 80, 

, IFC .NOTLAXT) BECL)=MUEFF (1) *eRHU(1) *UD0T)/S5CM (LL) =e be 
Ce 

'€* BOUNDARY CONDITIONS 

C* 

i AN=1, 

6N=0, 

“Yi0e ONSALEDGE(LL) aaa eee oe Z iia. e? 5 

Cr 


‘7110 CALL OFEQ(0,0,0,IER) 


1F(1ER) GO TU 999 
cs 
,C* MOVE NFW MOLE FRACTIONS,ETC*INTERP, UPSTRM DALKU 
ce ; 
i CALL MOVE (1, VAR, ALX(1,LL)¢NPD,1) 
DO 7115 LEL,NPU 
7115 DALXUCL/LL)=YOF (SM1(L),SM,DVAR,1,NPD) 


1C# 
7500 CONTINUE 
5 essa edaneaiemnates a ae i wpa ascii ae iin i FS eth a 
,C* COMPUTE AIR MOLE FRACTION AND UPSTREAM DERIVATIVE 
Ce 


DO 7749 L=),NPD 
ALXK(L-1) 21.6 
OALKU(L,1)=0. 
BO 7750 Lizeene = 
ALX(LeL)=ALK(L>1)=OLX(L,LL) 
DALXU(Le1)S0ALXU(L,1)=DALXUCL/LL) 
7750 CONTINUE 
7749 CONTINUE 
C* 
~~“ TFEC.NOT.OPRIN) GO TO 50 
DU 5092 LL=1,/NC 
CALL TABPRT(CNAME(LL)-ALX(1,LL),NPO,10,0) 
$092 CONTINUE 
“C* TEST FOR HEAT TRANSFER EFFECTS 
Cs 
t.- 
50 IFC(.NOT. QJET) GO TO 6554 
“C##@* SOLUTION OF ENERGY EQUATION 
Ce 
; 51 NM{=NPU 
CALL SETM(2,0,,0L,NPU,GMyNPU) 
1F(.NUT.TURBJ) GO TO 54 2 


Cr 

lea 

Ce COMPUTE D(DIKE/DY)/DY 

Ce 

| 

1C*# COMPUTE TERMS ENTERING INTO SOURCE 
(C® o 


Ce 
f DO S2 L=1,NPU 
j BE (L)=C3*DSTOR(L #600) *YOF (SM1(L),SM,DTKE,1,/NPO) 
| 52 CONTINUE 

’ NPM=NPU@1 = 
[ SD CALL DERIVOS™1,bE,C¥,2,NPM) 
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lcs 


| 


Sa DO $5 Lee,NPU- 
57 RAD=1, 

1F(Ax1]) RAD=Y(L) #2 
RD=RHOCL) ®UK(L) 
AL(L)=FAL(L)/CP(L) 

BE (L)=KCP(L) *CP(L) ROARED 
OUDYSQsOUDY(L) *O0UDY(L) 
GM(L)=GM(L)/CP(L) #CUaRD*RADeMUEFF(L) *DUDYSO/CP(L) 
IF (UD(L).NESUCLI) GM(LYEGM(L) 
1 =CYUF (SMI (L) + SMet De Le NPD) SFUCLIIZCOX#CP(L)) SEJET/TJET 

LFOMEX) GMCLIEGM(L) ECO#UPOKS/(RHO(LI ®CP(L)) 
GM(L)=CU*HO*RAD*MUL(L) *DUDYSG/CP(L) i | 
YECRD .60, Os. «Dk, GURCLD CE, .009) Go tass Bong 
GM(L)=CS#C*#MUL(L) ON CLIZ (RO HCP(L) #XLN(L) #82) RED(L) 
SB IFC.NOT. DIFF) GO TO 55 
ETA(LI=TJETACNO(1) *MUFFF(L) *RO®RAD/CP(L) *SUMCPD(L) 

55 CONTINUE | 
HECHEO. A nese eet Se il tm eee ee Po RT a 
IF(,NOT. AXI) BECL)=KCP(1)*CPC1)#RHOCY) #UK(1) 


eer ce 


ae a ———__—__—_. : ————— —— ee | 


e 


Cc 
Cc 
Cc 
Cc 


a 





Cr 
CALL MUVE (1, THU, VAR,NPU,1) 
DN=THEDGE | 
IF(.NOT.MIX) GO TO S6 
Ce B.C, FOR CONFINED MIXER aa a a a a aa 
IF(UPSTRM) GO TO S6 
AN=0, = | 
BN=1, ‘ 4 ; ; 
—_———, DN=0, = — ee —— 
56 CALL MFEQ(O,0,0-IER) 
IF CIFR) GO TO 999 ; 
IF(OIFF) CALL SETM(1,0.,ETA,200) 


rr re mT 


Ce 
IF(UEOGE «NE. 0.) GO TO 60 
OO 669¢ Leti,sNPO  _—__—__ 
IF(VAK(L).LT. 02) GU TO 6692 
6691 CONTINUE 
GO TO 60 
6692 LK=L=1 ; | 
LLEL : ' 
SLOPE=(VAR( NPD) =VAR(LK))/(SM(NPD) *SM(LK) ) 
NPDI=SNPD91l cn Mae a i ie, i ieee ae sae eee a 7 
00 6693 L=LL,NPOI 
6693 VARK(L)=VAR(L©1)+SLOPE*(SM(L)=SM(L=1)) 
60 CALL MOVE (1, VAR, THO,NPD,1) | 
IF (OPRKIN) CALL TARPRT(NAM(6),THO,NPD,10,03 


— cai ell a cn — aise re | 








pare 
! 


Ce 
Ce 
2# CUANNULAR PRUBLEMe* ITF .NOT, MERGE. COMPUTE U0 

ce 

6554 IF(,NOT. TWO) GO TO 6555 

TF CMERGE,OR, (NOT, MIX)) GO TO 6555 

IF (MERGE) GO TU 6555 
VOESURTCUSVOF*C* Lad, eGCek a TIE Ta THSVOe(P2=PL)/PL) 


ie see neat aa aod gees saobeaintaat Manik Reese ia iiania slg desiaiihigtisia sical anal 











6555 CONTINUE 


ee 
Ce 
ae 
Ce 
ae 
Ce 


Ce 
ae 


Ce 


Ce 
| C* 


Ce 
ae 
Ce 


Ce 
bes 
Ce 
Kes 


Ce 
Ce 
es 
L Gs 


rite 
Ce 
Ce 


Ca 
| Ce 


S 


anNan 
_ 2 2 


aan | 


LUCATE EDGE UF JET*== 400 PUINT IF NECESSARY 
fo CALL JTEDGE(X, YJETE,SFEOGE, ADDR) 
87 CONTINUE 


CONFINED MIXEK@CHECK FOR CONVERGENCE 
OF PRESSURE ITERATION _ 


IF(.NOT.MIX) GO TO 80 

CALL AITER? 

IF (ADDP ,AND, (NOT, UPSTRM)) ADDP=,.FALSE, 
_IFCERR) RETURN 7 
IF(CVG) GO 10 80 

WML =NPU 

CALL MOVE (1,YU,Y,NPU,1) 
ICYCLE=, TRUE. 

IF(.NUT,. TwO) GO TO 9966 


RESTORE ON ITERATION | 
U0=USVO 


THO=THSVO 
GO T0 9966 


IF UPSTRM=F, SET SM(NM)= PSID FOR CONFINED MIXER 
NO MESH POINTS WILL BE ADDED AFTER THIS POINT 


60 IF (MIX ,AND, (NOT, UPSTRM)) SM(NM)=PSIO 
MOVE DOWNSTREAM CO-ORDINATES TO UPSTREAM TABLE __ 
CALL MOVE C1+SM,SM1,NM,1) 
ICYCLE=,FALSE. 
TwO* JET LOGIC TO TEST FOR INTERACTIUN OF INNER AND OUTER JETS 
IF((.NOT, THU) .OR, (NUT. MERGE) OR, MERSTP) GO TO 776 
JETS HAVE MERGEC 
MERZ, TRUE. pe Be 
MERSTP=, TRUE, 


XMRGSXMERGE 
GO TO 102 


TEST FOR DISAPPEARANCE OF SUPERSONIC CURE IF JET IS SUPERSONIC 


989 


Lisa 





776 IF(SUBSON) GO TO 777 | 
TCLETJETe THO CL) ss = ee a ie gigi ie aaa 
VCLEVJETeUD(1) 

VSUNCES9RT (GNC (1) *GC#RG# TEL) 
TFC VCL.GE«VSONC) GU TO 777 


Ce ; 
Ce SUPERSONIC CURE HAS JUST DISAPPEARED 4 
ES Stitch kB eke os AR ie s 2. Ee ee a 


SurpcC2, TRUE, 
SUPSTP=, TRUE, 


Ce { 
C* FLAG NOW SUBSUONIC JET - ' 
Ce ( 
ome © CGGUNRE HUGG Ss a a eee A ee ge Ss oy ee 
xSUP=X 
GO TO 102 =a | 

Ce 
Ce : pee 4 


_C# #* SEQUENCE OF TESTS FUR DISAPPEARANCE OF THE 
C#  #® PUTENTIAL CURE Qk THE LAST STEP Se ea 
777 IF(LAST) GO TO 220 
IF(UU(2) EQ, UD(3)) GO TO 310 
1F(CORSTP) GO TO 310 


Nn ne NR On | 








1 
| 
rary 
_C* CORE HAS JUST DISAPPEARED 
ce ect a aa aa a em 
CORES, TRUE. | 
101 CORSTP=, TRUE, 
NREG=2 : | 
XLCEx 1 
ee ACL) a ie SP Se aE SME OE ER | 
102 CALL XSIZE (DX, X,REFL,NREG,LAST) 
GO TO 500 | 
ce : eens 
Ce 
C* TEST FOR DISAPPEARANCE UF CORE 
Ce 
i. SLOMEREEMEPARRC HO MI is “ee ee oe Le, Se ee J 
IF ((UD(2).£9.UD(3)) OR. CORSTP) GO TO 500 
C* 
_C*# CORE HAS JUST DISAPPEARED=SET CORSTP=T, 
Ce 
GO TO 101 4 
meg Se Ee aaa 
Ce 
“Cs TEST FOR NU. UF MESH POINTS.GT,NM | 
Ce 
\ 310 IFCNPD,GT. NMAX) CALL MSHCUTCNREG,SM,NPO) H 
Ce 
| Ca AOJUST-K=STEP SIZE SO aR a Na | 
Ce 
| $20 CALL xSIZF(OxK,xX,REFL,NREG,LAST) : 
IF (CERR) GO TO $00 
Ce 
CALL MOVE(3,/UD/ UU NMI, Te ED,FUSNM1 41, THD, THU,NMI 61) = > es 
NPUSKAM] Fi } 


990 


| IF(.NOT,OIFF) GO TO 8 : : 
oo OO 7700 LtLel,NC “= ; : - fe a et pee ee 
CALL MOVE(L,ALX(1,LL),/ALXUC1,LL)-NM1,1) 
7700 CONTINUE 
{ GO TO 8 
[Ce 
| Ca ERROR RETURN 
| Ce 
999 ERR=,TRUE, 
Ce 
500 CONTINUE 
NPUSNMI : on — 
,.1000 CALL MOVE (4,UD,UU,NMI1,1,E0,EUNMI ete THO, THUS NM Ly ate A) re 
*# SM1,PSI,NM1,1) 
IF(.NOT.OIFF) GO TO 7740 += 4 6. Bp? ae 
0O 7730 LL=1,NC 
CALL MOVE (1+ ALX(1,LL),ALXUC1,/LL)»NM1-1) Se Eh) 5 SI 
7730 CONTINUE 
7740 ASSIGN 1001 TU LGUP _ 


GO TO 10 eer ee aa a 


Cea 
1001 IFCPM(10).NE~. 04) CALL TABPRT(NA&M(3),XLN/ NPD, 10,0) ty a 
RETURN 





‘ ~ END : SE mage 
I a cach te AE AE Al Da wenn 
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pe ee 


a a a a a 


' #OECK JTUUTS 
i SUBROUTINE JTOUTS © 
CJTOUTS SUMMARY PRINT OF JET PROPERTIES 
| LOGICAL EUF » ERR 
LOGICAL TAPIN, TAPQAT 
LOGICAL Axl , CMPRS , QJET » TURBJ » CORE 
LOGICAL ENDJUB,ENDJW (ee ee See 
Tos INTEGER XPRNI (100) : ai Sj 
' FQUIVALENCE (KERN, XPRNY) 
N INTEGER PLOT 
{ REAL MJET » ME » MUREF 
i COMMON /SADAMO2/ ENDJOB 4» DUM02(3) 
| COMMON /DIFEUI/ or» f 
F * NC , CNAME(O) » ALJ(6) » ALUNM(6) » ALE(6) » | 
* SCM(6) , TCPRE(6) » HCPRE(6) » CPC(3,6) 
| COMMON /DICTRLZ DIFF , CND(10) 
LOGICAL DIFF 
CUMMUN /MOLESZ ALX(200,6) 
js COMMON RCNOL/ALEDGE (6), ALO(6) 
CUMMON /JETTROS : 
* THOU , OTAO » MJETO » TJETO , VJETO » 
* PTJETO » TIJETO » NJO 
REAL MJETU,“ACHO Pe) 6 Sal ae. —— ee ee 
COYMGN /BCO/ U0, E0, ‘THO ; = 
COMMON /CTRL 2S a 2 
~ * €0GEY | SFI > MERGE , XMERGE , 
* SLOPEIT » StOPEO », CEPTE » CEPTO 
COMMON /MERKGET/ MEK, MERSTP » XMRG 
LOGICAL TwO, MERGE » MER , MERSTP 
COMMON STOR ILEZ TAPIN, TAPOT ie <4 i oe ee Gee 
COMMUN /PARAM/ 
~ # UCedG pT CoOdd etUT coud) RMACH (COU) ;PYOr(OOOssTTitc00s, + °° °° © «©«;* 
* PTD(200),U0C (200) ,DUMP9(209) 








YMERGE , 





"9 etic eiemel Se a a a ee 
Ceaneae TNF UT COMMON 
Ce 
COMMON /INPJETZ 
= * Clint of POEY . = we tact. 8§€6©=6o6RL UP UCC RET aca ee ieee 
* TIJET ’ 
if * PE r VE + ME >. FEE S| ’ : 
* AX] a NJ 7 NM ’ 
r * x(100) » XPRN(100) , 
* GAM » RG 7 PR » PRT ’ 
i .. .-. — - eee al UG SNS eas ee a eae 
(Ce 
"Caasaae CONTROL COMMON : ma 
Ce 
COMMON /CTRL/ 
* NETA 7 CMPRS + QJET » TURBJ » COEF (10) ’ 
er ene er ah AG coe ee UME Lae ee ec ee 
| * DSTOR(800) 
Ce 
tes PROFILE COMMON 
Cr 


COMMON ZPROF/ PST(200)41(200) .U0( 200), THO(200) E0( 200) 


' 
‘» 
} 

' 
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| 
Canatee CONSTANT &ND ERROR COMMON 

ae 

COMMON /CNERR/ BITS », ERR , GC » GCJ », FOOT 
Cs 

Caaneee KROUNDARY CUNODITION COMMON 
Ce 

eae COMMON /BC/ UEDGE » EEDGE , THEOGE 

| C# 

| Ceeneee POTENTIAL CURE COMMON 

Ce 

| COMMON /COREO/ xCORE , CORE , CORSTP 

| C# j 

| Caeeeee SCALER (UNITS CON/ERSION) COMMON 

rcs — = — _ - 

\ $ COMMON /SCALER/ SP , SV , SLEN 

/C* 

Caaeeee JET PROPERTIES COMMON 
C* 

_ COMMON SSETS 3 ee ; e 
* B(100) » UC(100) », TC(100) » TIC(100) » 
* PTC(100) » wJ(100) , YJ(100) ’ 

* YSONIC (100) 
COMMON /JETIZ FLOWJ,TTO,NX,EJET 
COMMON /JET2/ TI1C(100) 

__ CUMMON/ADAMOL/Z _ reer ie 
* NAME (6), ADDRES(6),TITLE(6),IDENT (6) 
COMMON /MISCZ PM(10), PLOT 


Cr 
COMMON /MIXER/ MIX,RO(100),xX0(100)-CF,YR(100) 
LOGICAL MIx 

COMMON /FLOBAL/ MAXIT,SUPB,NIT,PSI0,YO0,YOC, 

* PTD P2,UCL,TOL,UPSTRHM,CVG 
LOGICAL SUPB,CVG,UPSTRM 
COMMON, ZACONVG/ YCD(100)/P0(100),INOC(100), CHOKE, CHOKED 
LOGICAL CHOKE, CHUKED 
COMMON /DFITZ CLSP(100) 

_ COMMON /STA2/ MACH, TS2,S82,V2,RH02,0PDKe 
REAL MACK2 = ae —— ee ear ah 
COMMON /BCMIX2/ GRADU, TWeMUWPRHOM, PTE, TTE 
REAL MUW 
COMMON /THERM/ GYC(200),CP(200) 
COMMUN /MTXPKPZS MA2(100),VE2(100),TF20100), THC (100) 
REAL MAG 

COMMON /THRSTZ wVv(100) _ 
COMMUN /CRODY/ YCK(100),-CLSPCA(100)-YCRL » UCLI 
CUMPMON /OUTMIX/ NXORIG 
COMMON /JETS/ STADD, NV, STATE 

LUGICAL STAOD,STATF 


“DIMENSION TI(200) 

i OIMENSTON LF1(3) 

i DIMENSION HEADI( 2,2), FORMI(2) 
EQUIVALENCE (TI(1),0STOR(1)) 
EQUIVALENCE CIMIX, MIX) 

DATA LEIZSAHSURSON, AMSUPSUN, OHOMUKED/ 

DATA HEADIs Orr REE Se CHET, OHCUNF IN, OHEOD JETZ 


| DATA ENOJW/F/ \ 
ha : mes : < : | 
1 JF(PLOT.GT. 0 2OR, TAPUT) CALL JIFILE(2,0UM) 
KMIxX = | 
IF( MYX ) KMIX=2 
00 6 L=le2 
© FURMI(L)SHEADI (CL, KMIX) 
OO 7 L=at,NxTAa a3 
IFCINDC(L).EQ.0) INDC(L)SLFI() 
IFCINDC(L) .EGe1) INDC(L)=LFI (2) 
IFCINOC(L) eEU.2) INDOCCLISLEL C3) 
CONTINUE 
TERMDS SeNTAJ tas 
CALL FMPYC(1,TERMD,YCB,YCB,NXORIG) | 
WRITE (6-109) 
NSTART21 
NLITNES=NXTA : 
IF CNLINES.GT.50) NLINES=50 | 
_ NLENLINES __ chee ties A ae ee eee hte ee | 
2 WRITE (6,110) FORMI,NAME, IDENT 
3 WRITE (6,120) 4 - 
NENOZNL \ 
ASSIGN 10 TO LGO ; : or 
5 DU $002 L=NSTART,NEND ; | 
| 


~ 
os ainsi mers diner pascal 





HFC VSONIC(L) .€0.8178 ) GOTO SOOO) nae 

WRITE (64200) Ly Xx(L)eB(LI+VI(L) UC(L Io TC(LI+TICCL) yPIC(L), 
# TIC(L),YSUNIC(L) @WJ(L) 
GON TO $002 

S000 WRITE (6,201) Leo X(L)eB(LIYSCL) UCCLI + TC(LI op TIC(L) »PIC(L), ; | 

# TICCLIemJCL) 

e919 0's eee 
GU TO LGU + (10,20) 


a -  - + 


Ca 
Caee CHECK FOR ADDITIUNAL LINES 
Ce ¥ 
5 10 IF CNXTA,LE.50) GO TU 20 
NSTAKTSNENDS1 
aN LR at Sha PR Nee ee en kaise eee ae ae 
WRITE (6,100) 
wreITE (6,120) 
ASSIGN 20 TO LGO 


ee ee eee 





Ce 

GO 10 5 
Wee ire A a 
_C# IF CONFINED JET CASE, PRINT CONFINED JET OUTPUT 
Ce 


20 IF(,.NOT, MIX) GU TO 21 

weITE (6,100) 

NSTARTS$ 

NLINESSNV ee St eee ae Le a ee Se aap 

IF (NLINES.GT.50) NLINESS50 | 

NLENLINES 

22 WRITE (6-110) FORM),NAME, IDENT | 

23 wRITk (6,140) | 
NENDZNL } 

ASSIGN $0 Ti) LGN ah ee ae wn? oy ee | 


eo. - 
t 
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25 WRITE (6,2000) 


(LexDO(L)/RO(LI-YCR(L),YR(L),YCOCL), 


* POCLI,INOC(LI HCL) MAC(LI/VEC(L)-TEC(L) »L=NSTART,NEND) 


GO TO LGO » (30,23) 
Ce 
30 1FC(NV.LE.50) GO TO 21 
NSTART=SNENDO] 
NENO=NV 
F WRITE (6,100) 3 
WRITE (6,140) 
ASSIGN 21 TO LGO 
GU TO 25 
Ce 
b 21 IF¢(,NOT, ENDJw) RETURN 
Ce 
CRA ated teat anakeKeKheannete 
ce 


100 FORMAT (11) 


110 FORMAT (39x,47H® JET 


FORMAT STATEMENTS 


awMAEV SEALS 


RARER HRA 


PROGRAM a// 


* GPX, 2Ab, OK ep OHMIXING// 350%, 6410/30K,6A10//) 


120 FORMAT(38x,51H* SUMMARY 


STATION 


DATA 


- JtT PROPERTIES  *& 


B/7 AXP LHN,LOXO LHL SX, THB LIX CHYS 412%, 2HUC, 
# L2X,CHTE er LEX e SHIT 7X4 SHPTC BX, SHTIC (SX, bHYSON] C+ OX, 2HNI/S/) 
200 FUORMAT( 3X, TSeF IG Sek LSS oF LU Se FIST A FIG, TELS, Oe 


* OPF9,6,3F 10.6) 


* F9,6,F10.6,10X,F 10.6) 


201 FORMATO 3X, T3+FIGSFIS.5eF IOS FIST oF Ie Te EIS 6, 


140 FORMAT (Ux, 1HN, OX, 2HXD, BX e+ 2HRD, 7K, SHYCK p> AX er CHYD + 9X, SHYCO, 
® 9X, 2HPD, SX, 4HFLOW 2X, OHTHRUST, 6X4 SHMA2, 5K, SHVEC, 


* 6X, 3HTEAS/) 


2000 FORMAT( 3X, 1 Se 3FIO Gp OFLo eT pF IU, IX Abr FIL ede lode In 54 F 8.2) 


Ce 





“5 
CA RARAR RARER RATA REAR HAD 


Ce 


Ce PROFILE PRINTOUT 
Ce 
ENTRY JTOUTP 
‘ PRK=PE ee 
IF (MIX) PR=P2 
Cs 
Ce 


50 NSTA=NX 


S51 XSTASK(NX) 
Ce a ae 
_C# CONVERT TURBULENCE ENERGIES 10 
Ce 


S2 CONIESGRT(2,*GCJ*EJET/3.)/VJET 
00 53 Ll, NPO 
S3 TICL)SCUNI*SGRT(ED(L)) 


UC1=1.,./UC (NX) 
TMPT=L./(TTO“TE) 
PYIPTZ1,/(PTJET@PE) 

CALL FMPYC(1,-TJET,THO,T,NYD) 


99 


JTOUTP ENTRY 


INTENSITIES 


RARER AT AHR 


COMPUTE ADDITICNAL DIMFNSTONLESS AND DIMENSTUNAL PROFILES 


Ce 
Ex 
Cr 


Ca 
Ce 
| C® 


Ps 
} oe 


CALL GAMCP(T,GMC,CP,RGe 1+ NPD) 

O00 600 t=l,NPO 

U(LISVJET#UD(L) 

IF(.NQT. CMPRS) GO TO 600 

GaAM=GVyc (Ll) 

GMe=2,/(GAM-1,) 

GMM=GAM/(GAMe1,) 

cCRy=cPCL) 

GCJUCP=H1./(GCU*CPJ) 

TOTCL)=TCL) +. S*#*U(L) *UCL) *GCJCPCEJETAED(L) CPJ 
XMACH(LIZUCLIZSORT (CO OM*#RGOGCHT(L)) 

PTUTCL SPR aCLSexeNaCr(L)aa2sGre ya2GMM 
TTID(LI=ZCTOT(LI “TE *& IMPT 

PTO(L)=CPTOTI(L) -PE) *#PTPT : a 

600 CONTINUE 

IF(.NOT, CMPRS) CALL SETM(S,BITS,TOT,NPO,<MACH,NPD, 
* PTOT,NPD,TTD,NPD,PTD,NPD) 


IFC XPRNECNX).NESO JAND, TAPOT ) 
* CALL JIFILEC1,XSTA) 
IF (XPRNIC(NX) LT. 0) GO TO 1111 
55 WRITE (6-300) 
NSTART={ 
NLINES=NPD 
IF(NLINES.GT.50) NLINES=50 
NL=NLINES gs 
So wRITE (6,510) NSTA,XSTA,PK 
NEND=NL 
ASSIGN 60 TO LGO1 
S7 wRITE (6-320) (LeY(L)-PSI(L),UN(L),THO(L)-TICL)-TTOCL)-PIO(L), 





* EMACH(LJ -UCLI-T(L), TOTCL) -PTOTCL) -LENSTART,NEND) 
~ GO TO LbO1 » (60,90) ed ae 


CHECK FOR ADDITIONAL PRINT LINES 


60 I1F(NPD,LE. 50) GU TO 90 : 
WRITE (64100) 
WRITE (6,310) NSTA,XSTA,PK 
NREMN=ZNPDENL 
IF (NKMN,GT.50) GU TO 65 
NSTAWT=SNENDS1 
NExT=MINO(SO,NRMN) 
NLSNL NEAT 
SSIGN 90 TO C601 
NENDSNL 
GO TH 57 
65 NSTARTSNEND SL 
NENDENL +50 
NL=NL4¢50 
GU TU 5ST 


PRINT CONCENTRATION PROFILES 


96 Tt NOT, OLFF) GO TO Lit! 
WRITE (6/500) 


NSTARTS1 
NLINES=NPD 
IF CNLTINES.GT.S0) NLINES=50 
NLE=SNLINES 
$112 wRITE (6,311) NSTA,XSTA,PK,CNAME 
NEND=SNL 
ASSIGN 1120 TO LGO! 
L113 WRITE (6,521) (LeVCL)PSICL), CALK( Le LL) eLLE1,6) +L ENSTART,NEND) 
GO TO LGOIL e (1220,1111) 
Ce 
1120 TFCNPO,.LE.50) GO TO 111448 
wRITE (6,300) 
WRITE (6¢311) NSTA,*STA,PK, CNAME 
NRMNINPDENL 
IF(NRMN.GT.S0) GO TO 1114 
NSTART=NENDO] 
NEXT=MINO(50,NRMN) 
NL=NL+NEXT 
ASSIGN 1111 TO LGO} 
NEND=ANL a 
GO TO 1115 
1114 NSTART=NL450 
NEND=NL+50 
NL=NL 450 
GO TO 1113 
(Aa kee tee etaeetaeeeeeaeeeeate FORMAT STATEMENTS RARER RRR AR ARERR 
C* 
300 FORMAT(IH1,S0xX,284* JET ANALYSIS PROGRAM #//) 
$10 FURMAT (26%, 10HPROFILES©= STA (,]13,6H) x=,F 10.5, 
5x, FHORESSURE=,FIO.4/S/ 
Coke THe 21 Xeei hee NIMENSTONLESS #8#,22%, 
Chart, 1 2X, 19Ha® NIMENSTONAL ae, OX, 1HEF 
ON TAN, OX, LH 69K, SHPST, AK, CHUN, Te SHTHD, OK, CHIT? BX, SHTTD,8X, 
BHP TD, OA, GHMAC HOAX, THUr LIX LMT 9K SMTUT 7X, 4HPTOT/S/S) 
311 FORMAT (12x,22HMULE FRACTIONS*=© STA (413,64) X=, 
* FL0.5, 3X + 9DHPRESSURES,FLIO.U// 
® OX eLHN GOK LHe IX, SHPSL TK BO, SK pbb Ske Abe SK bOe SX ep hOr SK, BASS) 
320 FORMATCIX, IT 3S,F ILL SHELL Ue FO bp FI0 eb, EL ee SHE IO, Te ea EC aa a ag 
# FLL Pe F9.Se SFL1.4,F 10,4) 
321 FURMATC(IX,TSeFL1.5,E11.4eF11,8,5F 11,8) 
Ce 
Lilt RETURN 
END 





“sees 
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#DECK MSHCUT 
: ~ SUBROUTINE MSHCUT(NREG) YM,NPD) 
CMSHCUT MESH REFINEMENT ROUTINE 
: LOGICAL MCHANG 
COMMON /PROF/ 
* DUN(400),UD(200),THD(200),ED(200) 
COMMON /UMESH/ MCHANG,CK+DY1,NMSH, ey oe CXPC,CXTP,NRED 
“CUMMON /MISC/ PM(10) ov 
CaeenrnanaCn 
ee 


i. 


Ee 


COMMON /CTRL2/4 DUM24(2), MERGE « DUM26(6) 
CUMMON /BCO/ U0, ED, THO 
COMMON /JETTWO/S TwOs DUMSS(7)~ 


———— -— rr er 


LOGICAL TwO, MERGE 


COMMON /MIXER/ MIX,KD(100),X0(100),CF,YR(100) 
LUGICAL MIxK 
COMMON /FLOBAL/ MAXIT,SUPB,NIT,PSID,Y0OD,YOC, 
3 Oe i Dw 2 P1,P2, UCL» TOL/UPSTRM,CVG | 
~COGICAL SUPB,CVG,UPSTRM 
CUMMON /CNERR/ BITS, ERR,GC,GCJ,FOOT 
LOGICAL ERR 
COMMON /ACONVG/ YCD(100)-P0(100)/INOC(100), CHOKE, CHOKED 
LOGICAL CHOKE, CHOKED 
COMMUN /OFIT/Z CLSP(100) 
“ CUMMON SSTA2ZS MACH2,TS2,SS2,V2,RHU2,0POX2— 
REAL MACH2 
f F COMMON /BCMIX2/ GRADU, TWeMUW,RHOW,PTE,TTE 
REAL MUW 
COMMON /CKODY/ YCBK(100),CLSPCB(100),YCK1 » UCLI 


Cer 





“tecnico Tk el a ee 
DIMENSION IMP(10) 
EQUIVALENCE (IMP(1),PM(1))  — 
DIMENSION YM(1) 


Ce 
_C* REDUCE NO, UF POINTS IN DOWNSTREAM MESH BY NRED 
C* 
IF(IMP(1).E9,0) GO TO 1 
CALL TAKPRT(4HPSIR, YM,~NPOD, 1000) 
CALL TARPRKT(2HUD,UD,NPD,10,0) 
CALL TARPRT(3HTHD, THD,NPD,10-0) 
CALL TAKBPRT(2HED,ED,NPO,10,0) 
ye ee UE” ai a Se ee. a ee 
10 YE=Ys(NPD) 
f IF(.NOT, MCHANG) GO TO ff 
GO TO (11420720), KGO 


Ce 

Ce POTENTIAL CORE REGION=< 

CX “REGCALCULAIE ALW USLEURS Secon; += ~~.  — 
Ce 


1i LKee 

IF(,NOT, TwU) GO TO 6312 
TESTL=U0"1.E=6 
TESTUSU04) 6 %6 

[- DOO o$11 Let1-NPO 
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TF(UD(L).GE,TESTL eAND, VOCL)YLESTESTU) UD(L)SU0_ 


6311 CONTINUE 
o3i2 IFC.NOT. “CHANG) GU TU 166 
OO 14 L=e,NPO 
IFCUuOD(L). NE. UCLI) GO TU 16 
14 CONTINUE 
[ 16 LRKEL 
C* 
1F((,NOT, TwO) .OR, MERGE) GO TO 166 
r DO 17 LEln,NPD 
IF(CUD(L).€Q,U0) GO TO 18 
1? CONTINUE 
| 18 LKEL 
r ~~00 19 LSlK,NFO 
IF (UOC(L).NE. UO) GO TO 167 
j 19 CUNTINUE 
167 Le=L 
166 LAT=LK<) 
NPD=NPD*NRED At. 8 
OY=(YE*YM(LK1))/FLOATCNPD@LKIY 
0O 15 L=LK,NPD 
15 YM(L)=YM(L=1)¢DY 
GO TO 100 


Ce 


C# TRANSITION/SIMILAR REGION== CALCULATE NEW DY=1_ 


“Gs 
20 NPDSNPD}NRED 
STERS=SFLOAT(NPDHW1) 
DYCZYE/(CKa*#STEPS-1.)*(CK@1,) 
DO 30 L=2,NPO 
XKPZFLOAT(Le1) 


r SO YMCLYEDYCe(CKASXNPol.I/(CK=y,) & #«=&°&#&»«©—~— 


100 IFCIMP(1).EG,0) GO TO 101 i 
CALL TABPRT(GHPSIA,YM,NPD,10,0) 

101 RETURN 

ENO 


: 


999 


— 


ah ae be eh 


a ee Say ee ee Soe 


— 


—— a) 


a 


ae 


r 
l. 


"DECK PAND 


SUBROUTINE PADO(CYM,NhD,REG) 


CRADD ADDITION OF MESH POINTS AT JET EDGE 
Fr LOGIC&L “CHANG 
INTEGER NEG 
CUMMON /UMESH/ “CHANG, CKeDY1,NMSH + CXPC,CXTP,NRED 
te COMMONS INPJETZ DUMI(12)—¢ NJ 6 OUMK(208) 


1 Ca 


" teee = REG=1<" USE CONSTANT MESH SIZE 
lee REG=2,3=-= USE MESH DEFINED 


___TFC.NGT, MCHA } 6o Ft 
1 GU TO (10,20-20),REG 
10 YK=YM(NPD) 
OVY=YK=YM(NPD=1) 
NPOSNPODF) 
YM(NPD)=YK¢DY 
80! TO EOC 


~ DIMENSION YM(1) 


MCHANG) GO TO 10 


20 DYF=YM(2)eYM(1) 


NEW=NPD4] 


(POTENTIAL CORE) 


BY /UMESH/ 


YMCNEW)SOYF/(CK@1,) *(CK#RFLOAT(NPD) =1.) 
NPD=NEW 


100 RETURN 
END 


—y 
| 
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I eDeCK QIREM 

SUBROUTINE QGIREM(xX,Y, XJP, QV) 
*QIREM= QUADRATIC INTERPOLATION ROOT EVALUATION 

FOR FUNCTIONS wlTH MA&xIMUMS 


Oo 


—+——- 


DIMENSION QV(8) 
BATS RRSME SCHR TRES f 





- enema 20. ggn Pore: ee 

ie INPUT 

rc x = ABSCISSA 

ke Y = OKDINATE (OR ERROR) 

re xJP = X-JUMP TO BE TAKEN BEFORE RODT/MAx IS 

lc A POSITIVE ERROR | 

FG. moray = STORAGE FOR EIGHT FLEMENT QIRE VECTOR 

_c QV(1) = CTR =O, (FIRST ENTRY ONLY) 
Cc YTOL = TOLERANCE ON TRE ERROR 

Ge Yo = URDINATE TO BE OBTAINED (OPTIONAL) 
Cc OYOX = ESTIMATE OF SLOPE FUR 2ND GUESS (HPTIO 
Cc CTRMAX= MAXIMUM NO. OF ITERATIONS (=25 IF NOT SPECIFIED) 
¢C OUTPUTe 

“CC x SS NEXT X ESTIMATE 

Le Ov(1) = 0, IF YTOL HAS KEEN SATISFIED 
Cc Qv(S) = 0. IF MAX PT HAS BEEN FOUND WITHIN YTO 

be __AND ABS(E).GT.YTOL. 

Lé _NOTES= 
Cc [3 = THIRD CUFFFICIENT IN THE EQUATION] Yea 
Cc = Ole IN GQIRE NOTATION 

ie Ni. 2 EXIT VALUE OF QV(5), Nisa IF x 

Lc N1=45(*5) IF x 1S JUST TO TRE LEFT (RIG 
Cc ~~ PREDICTED MAx PT, Nise IF x IS THE SECONL PY CLOSE TO THE 
Cc OTHERWISE NISN, 

ee “ = ENTRY VALUE OF OGV(5) 
Cc SGM = SIGN OF M IF AKBSEM)=5 

Le SOYOx = SIGN OF THE SLOPE OF THE CURVE 
Cc xJ = JUMP TO fE TAKEN FROM LAST Xx 

“EN Sa ~S ABSOLUTE V4LUF OF MAXIMUM JUMP = AnS(% 
Cc XM = DISTANCE FROM CENTRAL PT TQ MAK/4IN OF 

re OR = DISTANCE FRUM CENTRAL PT 10 THE R 
. x1 = INPUT (OR LAST) xX VALUE 


— 
j 


COMMON /COIREM/ YTOL+YU,0YDX,CTRMAX 
CUMMUN “FERASE / BOT, COKE, I,Ile IN, ISPAN,M,N 
1 TOP, XE XLS, 41 SP, e T,X SAL KM, OKC 
NIMENSION xXx(4),vY(4) 
EQUIVALENCE (CTR,QVIC1) I+ CNI,QIND,QVI(S)), 
1 (xx,Qvil2))- CYY,0V1(6)) 


Se a 


C”~YNYYTYAUCT7ING SND” PRELIMINARY CHECKING ~~ 
IF (CTRMAX,EG.0.) CTRMAK=2%, 

bu $0 121-8 

30 «GvicdrI)= QVC(1) 


— 
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"QTREM® 


SPAWNED, 


NAL) 


le 


+a XeCexaa2 


IS THE PRECICTEO MAX PT, 
HT) OF THE PREVIOUSL 


THE SIGN I 


* 7.3 Se Sein SS ea 


PARARIILA, SXMAXKeXx( 


OUT, =eROOT#xXx (2) 


»PADICL, SDYNK, SGN, 
$5) ,0Y0S$),9V1 010) 


Ni = IF Ix(Qv1(5)) 
E = Y-vVU0 
eee oe se ae peat Ff 


. 


| IF(CTRLFQ,9,) M=0 280 

ig SGM = be ; ite es aan oi wat 285 

IF(M.GE.0) GO TO 36 290 

mM a % 295 

SGM s ol. 500 

36 N = MINO(M, 3) 305 

Cs SPYDx = SIGN(1..°xJP) i 310 

C CALTERNATE CALC TO CIRCUMVENT COMPILER ERROR) war Ae eee Toe g1S 

IF(xJP) 41,42,42 320 

41 SOYOx = 1. 325 

GO TO 43 330 

42 SOYOX = #1, : $35 

as xJa = AKS(xXJP) ei oa es 340 

x1 = Xx Se 2 ea a Oe meee een ee eae 3a5 

IF (M*5) 44,45,46 : 350 

44 1FCABS(E).LE.YTOL) GO TO 800 $55 

iF IF(M,E9,4 ,AND, ABS(E*YY(2)).LE.YTCL) GO TO 700 360 
IF( CTR.GE.CTRMAX ) GO TO 930 ‘ 

ei pie GO TSG 24 ke Be oe eet ees 370 

46M = 3 (ee See et ee ee 

US X13P = XX S$) =xKXCL) 380 

2 3AS 

Cc DETERMINE INDEX FOR INSERTING CURRENT XeE€ INTO XX,YY TASLE WHICH IS 390 

Cc ORDERED aCCURDING TO XxX, 395 

_ 50 IN eae K Cae eee 400 

IF(N,€Q,0) GO TO 90 vee eae Ate ee ut reg ss ee eRe 

60 IF(XXC(IN).GT.X1) GO TO 70 416 

IN = IN¢] ; 415 

IFCIN,LE.N) | GO TO 60 | 420 

GO TO 90 Po 425 

Us Rh oe he : 430 

Cc RELOCATE IN PREPARATION FOR INSERTING X,E | eo | aos —— 8 oes 

70 YI = Nel 440 

BO XKCTI)S XxXCT1e1) "aa Gt) : : 44s 

YY(IT)= YYCII#1) 450 

II = IIet 45S 

p-—--—_ IF CTTNESIN) GOTO 80 De sls. 94 460 

Sas = ee as ee igs 

iC INSERT NEw POINT 470 

90 N = Nel 475 

XXCIN)S X11 uAo 

i YY(IN)= € 4as 

I agg 

€ ~ GOCATE INTERVAL HNICH SPAS ROCy~—CUCC COCO t—.T.CT ~~ 495 

; ISPAN = 0 500 

j IF(N.EQ.1) GO TO 200 505 

O00 110 122,N 510 

IF (CSOYOX#VY(L).GT.LO. 2AND, SOYDOX#YY(Le1),LT.0.) ISPANS=T S15 

11 CONTINUE 520 

DA ell DL ; < : Ee er ae ee Nee ee ee 535 

ic REDUCE xXX,YY TOKLE TO THREE POINTS 539 

| IF(N.LE. 5) GO 10 200 S35 

| IF(ISPAN,EQ.0) GO TO 140 540 

jc (ROOT HAS HEEN SPANNED) 545 

_ 122 IFCISPAN.EQ.N) GO TN 150 550 

[ IFCISPAN,EG.A) Gil TU 47S a i ee 5 a 

1002 





ae SaaS ee Seen ae eee ae 











| IF (ARSCYY(1)).GT.AKS(YY(4))) GO TO 150 560 
7 GO TO 175 - * j 565 
| 570 
re (ROOT HAS NOT BEEN SPANNED) 575 
, 160 TFCIN.LE.2) GO TO 175 5&0 
| 585 
ie DELETE FIRST POINT | = PLB Fe ed Sh 590 
150 O00 160 1s1-N $95 
{ xx(T) = xx(1et) 600 
160 Yv(I) = vy¢€le1) 605 
! ISPAN = ISPAN@1 610 
C DELETE FOURTH POINT ols 
ae ft es ee a De ge A aN ee ES Re 
625 
=: SIMPLE xXeJUYP PREDICTION 4 630 
200 NI =z N 635 
; IF(JSPAN,GT.O .OR, DYDX.NE.O,) GO TO 205 A 640 
Cc xJ = SDYDX*SIGN(XJA,=E) 645 
~C_ ___C ALTERNATE CALC TO CIRCUMVENT COMPILER ERROR) Bae Seeing eas OE, 
xJ = xJP 655 
IF(E.LT.O.) XJ=exd A tren ee _ 660 
GO TO 900 665 
{ b> = __ 670 
¢ CURVE FIT PRECICTIONS 675 
Be RR Se I LL rr ee ae ee Se aaciness Se 
68S 
ie ONE POINT PREDICTION RASED ON INPUT VALUE OF OXOY 690 
210 xJ = -E/0YODx 495 
GO TO 900 700 
: i 705 
Cc TWO POINT STRAIGHT LINE _PREDICTION ~ 710 
220 SOT REDE CRESU CU Ne hee hebeteint Ss @ ban ae ae, ee lS io, 
JF (POT.EQ.9.) GO TO 230 720 
OxDY = (4x 2)exx(1))/80T naa Sac 725, 
IF (COXOY*#SNYOX.GT.92) GO TO 240 730 
Cc (CURVE SLOPE IS WRONG = MOVE TOWARD MAXIMUM POINT) 735 
230 XJ = eb.*SNVOxexsa 740 
~~ 6G TO 960 i ae Pine te tee ia aa. See 
€ (CURVE SLOPE IS CORRECT) 750 
240 xJ = eb eDxOY 7 755 
GU TO 909 760 
765 
Le PARABOLIC CURVE FIT PREDICTION | 770 
“00 OXTH) S ERCLY=EXCES = Bae peal See a a as 
OKC3) = KKC 5) eKKCO) 780 
OY(1) = yY(1)<vYC2) TAS 
Ov($) = v¥C35)-¥r(2) 790 
BOT = OX(1)*07(3) © OKXC3)eOV(1) 795 
IF (ABS(BOT). LTI.1.€*12) GO 10 600 800 
- ie = OxC1)*#Ox(1)*8DV¥C3) = OKC3)AOKCS)*e0VCL) = — 
= ,S*#TOP/HUT A10 
“ae = ¥x(d)exx(1) a1S 
IF (ABS OXM)GT.ARS(S,E3*X13)) GO TO 600 820 
C = BOT/(0K(1)*#DxK 03) #xX13) 3 ‘ 825 
RADICL = KM#xXM = YY(A)/CE B30 
'_ IFCRADICL «LE.O,) GO TH $69 hi ON ET ake hip ne ae ee) ae 


1003 





SPR SHA 


— © =s 


J 


se 


-¢ cietNrs 





SON = SIGN(1.,,SDYDX*#C) 
XM = AM ¢ 
GO TO Ago 
C CIMAGINSRY ROOT, HENCE 
€ PRENICT “Ox PT IF Ms3, 
C PREDICTED PT IF Ms4/5) 
IF (M=4) 363, 564, 565 
IF (4RS(KM) LT. XA) 
GO TO &90 
XJ = -xX135/8, 
N1 3 5 
IF(IN,GT,2) GO TO 900 
XJ = OX 
N1 = -5 
GO TO 900 
xJ = SGMex13Ps4, 
N1 = 6 
GO TO 900 


360 


365 N}=q 


364 


365 


600 IFC(ISPAN,GT.0) GO TO 122 
GO TO 140 


C MAXIMUM FOUND 
_700 QIND = 0. 
GO TO 930 


.¢ SOLUTION FOUND 


800 CTR =s 0. 
GO TO 930 


a90 x1 = XX(2)4XM 
60 TO 910 i 

900 x1 => xX14xJ 

910 CONTINUE 
x 


> 6tR = CTRL, 
930 DU 950 [=1,8 
950 QV(I) Qvict) 
QvV(05) FLOAT(N]) 
999 RETURN 
ENO _ 


SGM*eSGkTC(RADICL) 


WE ARE LOOKING 
SELECT PTS 


CC RETREAT TO LINEAR INTERPOLATION 





FOR THE MAXT'4U" POINT, 


ON LEFT/RIGHT SIDE OF PREVIOUSLY 


A4uO0 
&45 
850 
855 
Ko0 
Ros 
&70 
BIS 
AKO 
ABS 
890 
AQS 
900 
905 
910 
915 
920 
925 
950 


93557" 


940 
945 


965 — 





popelijet ANE ED Letad dal nin bad Bid Sd) date al 2 
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'aneck SiMCED on aT 7 
. FUNCTION SUMCPD(L) } 
CSUMCPD OTFFUSION FLUX TERM FOR ENERGY EQUATION { 
j COMMON /ERASEZ/ DUMS1(400), TC200), DUMS2(200) 
} COMMON /DIFFEQOLZ : ; 
# NC , CNAYE (6) » 2LS(6) » ALJO(6) » ALE(6) » 
* SCMEG} » TEPRECGG) > MCPREOSY 5 CPCOSe6) 2. | 
i CUMMEN JMOLUPZ BL xU(1200),NALXU(200,6) ,OUME (200) { 
1 DIMENSION CPT (6) 
; c# 
Ce = 
rcs 
| __1 TEMPSt(L) ee ee i Be 2, a oe ee 
D0 10 K21,NC 
3 10 CPT(K)=CPC(1+K)FCPC(2,K)RTEMPHCPC(3,K) eTEMPRTEMP - mye ! 
Ce | 
ce : 4 et or | 
Ce MULTIPLY HY GRADIENTS/SCHMIOT NUMBERS AND SUM ] 
Ce eae D see oe, i ee weit a ( 
Te SUMCPD=0, 4 
‘ OU $5 Ket,NC - = Ls “ } 
15 SUMCPD=SUMCPD*CPT(K)/SCM(K) #DALXUC(L/K) ] 
20 RETURN Eaetic ¥ ee go 2 ! 
END | 
— _ - - an —~— _ —_—— = a a _ | 
‘ 
a nee tenet — See eee Se 
- peice SSS = py ee ae ee Ee 4 
+ — — . - - _ — - —+ : 
| 
+ — _ -—— - - { 
| 
foie = 7 . . { 
Pea a Sa a a a a 1 
i 5 j 
{ 
| 
. : 
1005 


#DECK HSER 


SUBROUTINE TOSEQGCA,N2,100FN) 


_CTOSEQ TRIDJAGUNAL MATRITXK=SIMULTANFOUS EQUATIONS 
Ce 

\Cs* b= COFFFICIENT ake AY~eeA,K,C,D0 BY COLUMNS 
Ce FIRST CHLUMN DESTROYED BY SOLUTION VECTOR 


(Rae eaaae 

rex Hien 
Ce 
hoe 
Ce 


i Ce 


SOLUTIUN VECTOR RETURNED AS FIRST COLUMN OF A ARRAY 


IF NURMOL DERIVATIVE CUNDITIONS ARE ENFORCED USING 1ST TWO 
PUINTS S820VE OR BELOW THE KEUNDARTIES, ACL) AND/UR A(3$#N2) NE. 
THIS CONDITION JS FLAGGED BY IL ANDZ/OR LUF1. 


O.- 


ee 


it 


le 


40 
50 


AC LGV SATU) ACT 3) # A(T e2) | 


LENG. 


DIMENSION &(800) 


IST2t=1N 
T2=I1SIZE +1 
IF CACT2)) 
FNZL, 

GO TOS 
T3se*e[STZb ol 
T4s3eISIZE+t 

1u=0 

TL=0 

Gs0. 

TFCACHE) NEO) ILE1 
INMZI3¢N2*1 a 
TF CACINM) .NE.O.) 
G=ACL)/ACT2) 
A(143)=4(15)Z4(12) 
AC1)=A(1T4)/AC12) 
N=NQ ore 
DO 10 [=2,N 
Te=ISIZE+l 
142] e+ISI2ZE 
T4=13+TSI2ZE 
IFCT.NE. N OR, TUNES) GO TO 15 
ACT)S4¢T)~4(1$) *h( 15-2) 


12,1112 





1u7! 


CUNTINUE 

ACT2)=4( 12) eALT) AAC S91) 

IF €AC1T2)) 13-11,393 

IFCITLEQ.e eAND, ILAEQII) ACT3)V=ACT3) ACT) 8G 
IFCITLEQ.N 24ND, JU.E9,1) GO TO 10 
ACT3)=4¢13)/4(12) : - eos 
ACTIECACT4) ACT) #A(T #1) )/A(012) 
ISN 

Tele! 

IF (1) 40,40450 

T3seaITSIZEel : 

ACT) =ACT)-ACTS) *AC 141) 

IF CTL ERLE eANDe TLFQ.1) ALTI=FACTI Gaal +2) 
GO TO 20 

FNSO, 

RETURN 
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So EY Rese ene Genres weenie Connery Sameer Gen 


ee ee) ee eee a 


— 





| eoECK xSI7E 
hae SUBROUTINE XSIZE (Ox, x, REFL/NKEG-LAST) 
| CxSIZE XeSTEP SIZE CUNTROL 

LOGICAL LAST 

COMMON /SFETNEWS LKK,LC 

COMMON /UMESH/ DUMX(4),CKEC,CXTP,NRED 
COMMUN /CTRLZ OUMSX(9), CO 4 DUMSXI(A), 


Ce 
Ce NREG=1, Ox PROPORTIONAL TO BR 

C* NREG=2,3 OK PROPORTIONAL TO JET RADIUS 
Ce 

Ce 


___. .  bwS TS, PALSE « 
r OxTtT=xD-x jas en 
1 GO TO (10,20/20),NREG 


XO» DUMSX2(800) | 





ree 
L 10 Ox=CXPC*REFL/C6 
IF(DX,GE. .99*80xT) OX=0XT 
fs ES a Eee, 
GO 10 50 
Ce 


20 IF(LC.GT.I10) GO TO 30 
Ox=,1eFLOAT(LC) eCXTPeREFL/C6 
LC=LC+1 

60 TO 40 _ 





"30 DK=ECKXTP#REFL/CO 
40 IFC(DX,GE. .99*DxXT) OxX=DXT 
XT=x#DX 
Ce 
te 
£* CHECK FOR X.GT. CALCULATION STATION 
Cr 


50 IFC XT.LT. (XO0"1.€-8) ) GO TO 100 
LAST=, TRUE, 
Ox=xDex 


| 


Cs 
100 RETURN 








END 


— 
| 
j 
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| #OFCK SSFD 


UVERKLAY(SSNOISE+ 2,0) 
PROGRAM SSFD 


* aMAINS 


Sinn aueeandin aad 


REAL MJET 

LUGICAL CARRY 

LOGICAL AXTSYY,DU4L,SSTRM,PCONT,BARPRT,SLIP,SOLID 
LOGICAL MNISCC 

COMMONSTROUUBLS ERR, ENDIOB 

LOGICAL ERR, ENDJUR 
COMMUN/CPI/PIT, THOPT,P 102," 104, TODEG, TORAD 
COMMONZCNTRL/DUMCS (4) CARRY 


COMMON /CHNDRYS RHO( 23,2) oP (2302) UI 2s,2.0V(23e2) -VGU( 2522) 


2 sPSIDUM(2$r2)5. 
$  ,VQUBER (25,2), RR AR (23,2) pPHAR( 23,2) ,PSI120 102) 0 L¥N( 23,2) 


R02$,2) , RAR (25¢-2) RHA (23,2) ,UBAR(238e2) 


rn ePHUUND (2,2) ,0K RNS, ST ROeDXODSY,PST1, YCALC,SLUPE (2,2) 


S,TISAVE (1.2) 

COMMON /CGAM/ GAMMA(2),GAM1 (2) ,GEAYT(2),GAM202) GAMING (2) 
COMMON/FILK/CSC 

COMMUN/CUPDAT/MAP, IMLP,NDIGIT(14) 


COMMUN /CINITS NJJICAV—NIIMI CAV eNISM2O(2) -STABIL oe Xe XLe ITPRINT» DX2 


1 ,Ox3,TS,0PSI(2) 


COMMON SCINPUT/S PT C40, 2) TT (442) PRESS( 40-2) 6 YIN( 40,2) ,24( 40,2) 
L,THETAC GD, 2) 6 TANTH( 40,2) pe KLOK (2002), YLOMN( 20,2) 4 XUP (20-2), YUP (2052) 


2eNSTRM(2)-NPTSE (C2) pNPTSU(2) ,PUP( 29,2) »PLOW( 2072) 


COMMUN /CKITS/ BITS, HLANK 

COMMON SCENTROS PTOTS(20246),xKPT( 20) -NPT,DUMU5 (45) 
COMMON /CHPR/ KPR(G) 

COMMON /CRDYPR/ xXRNY(4) 

COMMON /CPUNCH/S TPUNCH 


COMMON /TREINS XTRE (200, TKEBOY (20) NTKESXLTKE (20) sMJETeXOM(100)¢ 


1 TIJET,TJET,OIAJ 
COMMONSKEYSSFEY CSE), KEYB(Lt),KUDACIL),KXODB(11) 
COMMON SCNTROO/ RKS2  ,RHS,RHS1 
COMMON /CPRENT/ XIPRT(2) 

COMMONS QSHKPE TS SHKPRT 

LOGICAL SHKPRT 

CUMMON /CIKFRRS XTKERR,XTKESH,)XTKESF 
CUMMON /CRESET/S XRESET( 2) 

COMMON SCOLDPT/S OLDPT (23,2) ,0LDPTS(2) 
COMM /CSHKKPT/S SKKPT (23,2) 

DIMENSION 8(100),PST C200) -PTOT(200),E00200) » XMACH( 200) 
COMMON/COMPILS PE,RONXTA,GCJFE SETS VIET, PT JET 

x oNPD,PSI,PTOT,EDsxXMACH 
COMMON /CLSPF / I 


SHKPRT=. FALSE. 


90 CONTINUE 


COLL OVERLAY(THSSNOISE,2,1,6HRECALL) 
IF( ERR ) RETURN 

CALL OVERLAY (7HSSNOTSE»2,2,6HRECALL) 
IF(ERR) RETURN 

END 
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ST eee Hee eee D 


claps 


' ek CK 


* 
et 

* 
® 


L 
| 

* 
‘s 


BLKSSD 

PLUCK OaTA 
COMMON /CPI 7 PI, THWOPT 

COMMUN /CSTORE/ OX1-SGN,T1,TEND (4) 
COMMON /CSHK / TBANSI,NSHUCK,PSTSHK,DELP,DELVGU, 
JLOW, ISHOCK , xSHOCK (C2) /YSHOCK 

COMMON/CRNDRY/S RKRUCG6)-P (40) -11(46),Y (46), VOU(46) PSI (46), 
P( U6), YRAR (46) ,RHOKAWK (U6), LKAR( Un), VOUKAR(UH),XHAR( G6), 
PRAR(UH),PSIT262),24N(4o) PRY NCU), DXeRNIe JT- RO, OXODSY, 
PST1,YCALC,SLUFE (4), FTSAVE (2) 
COMMON /CLOUGIC/ PLCONT(4),DUAL,SLIP,4XISYM,SSTRM, 
BARPRT,ENDJOBK,SOLID(4) 
NISCAVeNIIMI(C2),NIIM2C2),STABIL, 


* 
* 


¥,XL,TPRINT,OxX2,0x%3,1S,0PSI (2) 
COMMOIN /CGAM / GOM¥A(2),G4M1(2),68%102),G4"2(2)/GAM102(2) 
CUMMON. /CINPUTZ PTC RO),TI(2),PRESS(KO),YIN(KO),24%(80), 
THE TA( AO), TANTH(RO),XLO%(40),YLOv. (40), xXUP(40),YUP(40), 
NSTRM(2),NPTSLO2),NPTSU(2),PUP(40),PLUW(40) 
COMWON SCJLBYS/ JLRADYS(2) 
COMMON /CXDISC/ XMOISC,xXSAVE, TOISC,4DISCC 
LOGICAL MDISCC 


COMMON 
COMMON 
COMMON 
——" COMMUN 
COMMON 
CUMMON 
COMMCN 
COMMON 
COMPRON 
~ COMMON 
COMMON 
COMMON 


/CMLIMS ZMLIM 


/CBDYPR/ 
/CXPR / 
JCTKEPR/ 
/CPRENTS 
/CRESETS 
SCOHAYLS 
/CSHFR / 
/CSHKe / 
/CENTROZ 
/CSHOCKS 
SCRFLCOTS 


xROY(4) 

XPR(4) 

RNTKEPR XIKESH. x TKCSeF0©€6U™~*~C~C~C~C~C~C~C”CCC” 
KENTROC2) 

XRESET(2) 

YCMARL 

IFIRST, HUGE 

IFIRTT,II 





PTUT(20,46),xKPT(20),PSIPT(46) 
DUMSK(90),R2(10) 
I1G0,ICHNG, ISIGN 


| eee 


le aan aoe | 
! 


DATA R2/10*0,/ 

“DATA IGU,ICHNG/0O,0/ 
DATA JLANYS/2e1/ 
DATA JT/O¥L, 11, SHOCK + SGNGX,D0X3,RC, XLS 

# JFrloelsStteE+Ss lev icEe GeSet. cl EeiS7 
OATA PI,THOPI/$.14159-6.28318/ 
DATA STAKHIL,IPRINT/.5,1/ 

PATA AXTSYM,SSTRY, DUAL, BARPRT,PCUNT,SULIO/I24F7 
DATA PRUUND,PTs/4a] Eb +15, K08) FE F1S/ 
OATA YIN/BO41 E157 
DNATA XLOW,YLOR, KUP,YUP/UO#! F415, G08] ELS 4OML ee HIS, GOR EIS 
DATA PUP,PLOWJ4O 81 £415,408] FE 41S/ 
DATA GANMASNISS291 be eels 

“OATA PSIPT, KPT s/doey FetS, cde te tS/ 
DATA XTKFPR,XTKESH,XTKESF/ 38 100.7 





DOTA 
DATS 
pars 


east 


¥RESeT/2*#100,/ 
KENTROS2a100,/ 
ZMLIM/1,047/ 


OATA xXBDYs/4#100,/ 


DATA xPH/U8100,/ 


1009 





SS ee 


| 
| a an i ce a 


DATA ¥MNISC,XSAVE,MDISCC/2*1.F415,F/ 
DATA JEIRTISES, III Ze YCHARL/1 Se TF IRST/3/eHUGE/SI EE +8/ 


END 








*DECK FRROPIS 
r PESUBNOILE INGO EERO tt ie oe ine lS Geet weg saan ete 
_ CERRORI SET ERROR INDICATOR 
CUMMON/TROURL/ ERR, ENOJOB 
LOGICAL ERR, ENDSOB 
ERR = TRUE. 
ee RETURN 
— $$ 
| 
es pa ecm lc mt ed ge 
} = : 
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se, Sasa eee Coneee 
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leDeECK LFITSS 
i “SUBROUTINE CFIT(X,Y,NPTS.xC,YC,NXCeND) 
;CLFIT INTEGRATE OR INTERPOLATE 


CHECK TO KEFRP MLE T= FROM EXTRAPIILATION]} 
IF REQUESTED INTERPOLATION LOCATION IS UUTSIDE 
VA@RTAHLE EQUAL TO END VALUE 


ra” 
»_.* 


DIMENSTON XC10),YC10), XC(10),YC(10) 


yr 


DEFINED INTERVAL, SET 


INTEGRATE GR INTERPOLATE USING & STRAIGHT CINE FIT BETWEEN POINTS 


Cc INPUT= 
c Xe. ¥ PTS. ON CURVE 
€ NPTS NO. OF x 
c xC LIST OF x BT WHICH CALC TO BE DONE 
C ¥ECt) INTEGRATION CONSTANT IF NOt} 
Go 1 kG. TRO UR oxG CU ea Cx pe 
me NO 20 TO GET CONRD, =1 TO GET 1ST DERIVATIVE, 
C ze] FOR INTEGRATION 
re OUTPUT 
c YC COORDINATE OR DERIVATIVE AT XC oR 
“CVE CICYE INTEGRAL CY*#Dx) FROM XC(1) TO XCCIC) WHERE TCS2,NK 
Ke NOTES 
LC Wx" MAY HE IN ET THEH ASCENDING OR DESCENDING GQROER, 
rec FOR INTEGRATION "xC" MUST RE IN THE SAME ORDER AS "Xx", 
[C___—FOR INTERPOLATION NO SPECIAL ORDER TS REQUIRED. 
\ COMMON /CLSPF / I 
| LOGIC4L WITHIN 
N = NPTS-1 
Le = MAxXO(1,MINO(I,N)) 
IE ‘€NDJEG, C=1)x [21 <a ae ane oR ee 

ISAVE = 0 

SGN = SIGN( Le XCN#1)=x(1)) 
r€ BEGIN INTERPOLATION LOOP FUR xC(IC) 1C=1,NxC 

eG a} 


C LOCATE APPROPRIATE INTERVAL 

rT 700 WITHIN= ,FALSE, 

| NCOUNT= N 

102 IF (NCOUNT) 119,103,103 

103 NCOUNT= NCUUNT=1 

2 x1 “= x ¢T) a 
x0 = xC(IC)-x!I 
IF (N) 104,120,104 

104 IF (SGN#xD0)105,107,110 


C  _FLT.0, (F 1S THE FRACTIONAL POSITION IN THE 


101] 


INTERVAL) 





ee Pane eee Creer ee 


105 JF (1.€Q,1) GU TO 117 
C#105 IF (1.€6.1) GO TO 120 
IF (ND.EQ.("1)) GO TO 119 
, I oe SS Sool cart nS . as 
GO TO 102 
ré F.EQ.0, 
107 IF C€xCT*1).NE.XT) GO TO 120 
GO TO 116 
1€_ _F.GT.0. Seats & $2) San ee Ab ph oe ee oe ee nen 
110 IF (SGN#e(xCCIC)=x(1¢1))) 120,112,114 
¢ FLEG.1., CHECK FOR INTEGRATION AND DOURLE POINT BEFORE INCREMENTIN 
112 IF COND, EQ. (91)) OR. CILNEN AND, XC T41),E0,xX0142))) GN TO 120 
RSE SEL Od Le ee rece ee. Meee ees ee Pets SOE ee De LES SA LRN 
114 IF C(I.E€9.N) GO TO 118 ; 
C#114 TF (1,€0,N) GO TO 120 
Ge CR CP Ok ae a ee | So ake en aan nan aie 
¥E6_1 Me Se = 
GO TO 102 


“Cs EXTRAPOLATION GUTSIDE XeTARLE~=--USF END VALUES 
117 YI=Y(1) 
GU TO 1181 


118 YI=v(Ned) 
we. 





GO TO 129 


“119 CALL FRROKL 


PRELIMINARY CALCULATIONS FUR INTERPOLATION OR INTEGRATION 
120 wITHIN= , TRUE, 
122 JF (T=ISAVE) 124,129,124 
124 [SAVE I ae 
Mh: Y(1) 
x3 X(Je1)=xI 
8 0. 
IF (N,GT,.0 «AND, KS$.NE.0,) 
IF (ND) 150,140,141 


wom 


RoCy(l+1)eVI)/x3 
129 


INTEGRATE 


NO=<1, 


1912 


— 


= 


tear = <n 


[ 130 IF (.NOT.WITHIN) xD0=x3 1 
: $1 = CY] +.5etsaxD) #xD $ a 

IF (wITHIN) GO TO 135 
"I" 1S REITING INCREMENTED TO FIND APPROPRIATE INTERVAL, HENCE, 

CUMULATF THE INTEGRAL OF THE ITH INTERVAL, 
| Sa = SAeS1i 
GO TO 16 ‘ 
C APPOPRIATE INTERVAL FOUND, x(T)-xC(IC)-x(I*l) 
135 IF CIC.EQ.1) SAzYC(IC)=S1 


{ 
r IF (IC.NE.1) YCCIC)=SA6S1 ; 


oa 


| GO TO 150 
c ND=0, INTERPOLATE FOR COORDINATES 
140 YCC(IC) = YI+B*x0 
Go TO ise 
Cc NO=1, FIRST DERIVATIVE 
141 YCC(IC) = B 





150 IC = 1C+t 
_ IF (NXC#IC) 900,160,160 
160 IF CHDINESC<L) AND. XECIC) €Q.xCClC=1)) 1=!1+) °° &° CCC oe ay 
GO TO 100 


900 RETURN : 
END ia =e oo 





*DFCK LSPFSS 4 a SS As. ao ee Ee ae 
“CLSPFITT DUMMY 
SUBROUTINE LSPFIT(X,Y,NPTS,XCeYCeNXCeND) 


DIMENSION K(1)/YC1)-xCC1),YCC1) 
CALL LFIT( xX, Ye NPTS/XC,YCeNXC,ND) 
RETURN 








*DECK SSFDIN 
OVERLAY (SSNOISE,2,1) 
PROGRAM SSFOIN 





ic MAIN PROGRAM FOR INPUT LINK 


CALL INIT 
CALL READTI 
RETURN | 
ENO 





a ————— ---—- —— -—-- --——— + 


rena a meme 
| 
' 
| 
| 
| 
| 
{ 
| 
| 
| 
' 
‘ 


en en ee ee ee ee ee ee ee ee 
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(speck INIT 


SUBROUTINE INIT 
* INIT SETS UP INITIAL CONDITIONS “INI Te 
COMMON /TROUBL/ ERR, ENDJOB 
LOGICAL ERR 
COMMUN/FILK/CSC 
COMMON/CUPDAT/MAP, IMAP, NDIGIT (14) 
“COMMON /CKNDRY/S RHU( 2362) 6 P023,2) 0UC 23 ree VO 2302) eVOU( 25,2) 
2 »PSI(23,2). RES, 2 Fe YHAR (23,2), RHUKAR(25,2),UKbR (25,2) 
3 -VOURAR (25,2) eRBAR(23,2),PRAR(23,2),PS120 162) e62YN( 23,2) 
G,PROUND (2,2) -DX/-RNJ+JTAROeDXQDSY,RPSIT I, YCALCe SLOPE (CA,2)-TISAVE (1,2) 
COMMON /CLUGIC/ PCONT(2,2),0UAL,SLIP,AXISYM,SSTRM,BARKPRT,OU4END 
COMMON /CLOGICZ PCUNT(2,2) eDUAL + SLIP, AXISYM¢ SSTHM, RARPRT,ENDJOB 
~~" 1, SOLID (272) aie 
COMMUN /CINITZ NJSCO) oe NIIMI C2) ,NIIM2(2) ¢STABIL XXL ITPRINT »DK2 
1 ,O0*3,TS,0PS1(2) 
COMMON /CG4M/ GAMMA(2),G08M1(2),GAMI(2),GAM2(2) -GAMIOG(2) 
COMMON /CINPUT/ PT (40,2) 6 TT (1.2) ePRESS(U0,2),VIN( 40,2) 6 LM( 49,2) 
a THETA(UQ,2),TANTH(40, Ade KLOW(29¢2),YLON( 2002) 4XUP (2002), 2eYUPC20,2) 
= 2eNSTHM(2),NPTSLEC2)/NPTSU(2),PUP(20,2),PLOW(2072) erg 
COMMON /CRETS/ BITS,RLANK 
COMMUN /CENTROZ PTOT(20,40)-XPT(20),NPT,DUM4US(45) 
COMMON /CXPR/ XPR(G) 
COMMON /CXDISC/ XMDISC,xXSAVE,IDISC,MDISCC 
COMMON /CRDYPR/ XRDY(4) 
“COMMON /CPUNCH/ TPUNCH 
COMMON/OSHKKPT/ SHKPRT 
LOGICAL SHKPRT 
COMMON /CRESET/ XRESET(2) 
COMMUN /CPRENT/ XENTRO(2) : : 1 
COMMON /CTKEPR/ XTKEPR,XTKESH, XTKESF | 
— COMMON ZEXLE 7 XLE °°  — a ae =n 
COMMON sSCJOUMIS DUMIMX (2038) | 
OIMENSION KPTSET(20) 
LOGICAL MDISCC 
LOGICAL SLIP,SOLID,-RSTART,EVEN 
LOGICAL 4xJSYM,DUAL,SSTRM,PCONT,BARERT,ENDJOB 
"————NAMELITST /OUTPUT7 GAMMA,  “STABIL, X, XL BARPR TS AXTSY™ SS ee 
2 ,IPRINT,SSIRMSNIJ- EVEN 
* ,XLC,DUMJMX,JT 
NAMFLIST /INPUT/ GAMMA,NJ,STABIL +X, XL, RARPRT,AXISYM 
Poe IPRINT, SSTRM,NJJ,RSTART, TANTH 
i fe eh tL THETA,YIN, PT, TT | 
c Ss SPTOT XPT ePSIPT, YBAR, IPRTC 
5 ePTOT, XPT, PSIPT, YRAR,TPRIC,NPT,CSC,NOIGI?S 
6, TPUNCH, XHDY, xP, XMOISC,*SAVE,IDISC,MDISCC 
Tp SHKPRT XTRESH/ XTKESFE  XPESET,XENTRO,XTKEPR 
* ,XMACH 
) REE ACTOS VS Veh SEP CSEUST SOP ORSIELEEC LES OLt )2)6)6[~;<3~<;3:; ] }RMhle 
* Ser Geta Tee MeotlertSentSee20./ 


| 


—ae 


ee “ 4 


si iedeah Oi aa a i 
| 


a 





ORES ag EOL A 





DATA RSTART /,FALSE./,IPRTIC /0/ 
ce RSTART.EQ,.,TRUE. IMPLIES THETA IS BEING READ IN AS TAN THETASe 
® TeE.e IT IS VEING CBHTAINED FROM THE PRINTOUT OF A PREVIOUS RUN 
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20 


2222 


Ce 
Ce 


| cc 


aa 
[= 


EV 
EV 


“Yeo 
var 
eXe 


-xL 


Il=1 
Ox3=1,€8 
EVENS, TRUE, 
YRAR(1,1)=8ITS 
YRAR(1,2)=KI1TS 
ERR=.FALSEF. 
AxISyM= , TRUE, 
xUP(1,1)= 0. 
KUP(1,2)= 0. 
YLOW(S,1)= 0. 
YLOW(1,2)= . 5162 
XLOW(C,1)=0. 
KLOW(1,2)=0. 
YUP(1,1)= ~3162 
YIN(1,4)= 0. 
YIN(2,1)= . 3162 
YING),2)= 23162 
YIN(2,2)= Ie | 
THETA(I-1)> 0.2 
THETA(2,1)2 0, 
THETA(1,2)= 0. 
THETA(2,2)= 0. 
PT(1,1)5 Ie 
PT(O,1)> te 
PT(1,2)= 1. 
PT(2,2)= 1. 
TT(1,1)= Ie 
1. 
2TR 


TT(1,2)= 
SSTRM = 
NJJ(1)= 8 
NJJC2)= 19 
XMACH 1.05 
XL BITS 
NPT 0 


UE. 


CALL SETM(1,AKITS-XPT,20) 


READ (5S, INPUT) 
IF (FRR) RETURN | 


IF( XPTC1).NE.BITS ) GO TU 2222 


NPT = 20 


CALL MOVE CI» XPTSET.XPT»20,1) 


ZM(1,1)= MACH 
7™(2,1)= XMACH 
2M(1e2)= XMACH 
ZM(2e2)= XMACH 
CALL READT 


JT = 1 


SS eee Se ee 





IF (YRAR(1,JT).NE.BITS) EVEN=.FALSE, 


ENS,TRUE, IMPLIFS EVENBY SPOCFN 
ENS,FALSE. IMPLIES USE THE 


WEPRESENTS THE 
T4PLES 

INTTIAL VALUE 

FINAL value WF 


OF 


(IN PST) MESH 
Y*SPACING 43 GIVEN IN THE YHAR TABLE 


X-COOR wHERE CALC IS TO START 


K@CONR athelt ITS TO END 
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YeCOORSINATES OF THE ENENLY SPACED CRSSS@STREAM 


| 
| 
' 
' 
' 
' ' 
| 
' | 
' 
| 
' 
ee Se Se ey ee a oe 


Ce =PCONT= TRUE YNPLIES A PRESSIIRE ROUNDAR Y : ‘ 7 
“C# #SSTHM* TRUE IMPLIES THE HUUNDARY HETWELEN THE 2 CHANNELS IS A SLIPSTR 

Ca ofMe CROSS*STREAMY “WACK NUMBER VARTATION 
Ce ee ]NPUT WUANTITIES=< 5 
(C*# =PRESS= CRISS STKE AM PRESSURE VARTATION 


Ce =THETA= CROSS STREAM@ FLile ANGLE VARTATION 
C# -YINe YeCUOR FIR CROSS STREAM PROPERTIES (ASSUMES CONSTANT X) 


* oe 


FCs «PT. TOTAL PRESSUYE UF INLET STREAM (VARTANLE) oie 
(Ce oTT TOTAL TEMPERATURE OD INLET STREAM (CONSTANT FOR EACH STREAM) 
Ce @=XLUhe “VLOAe X BND Y COORDINATES OF LUWER GOUNDARY (FUR EACH CHANN 1 
_C# ©xXUP= YUP= x AND ¥Y COURDINATES FOR UPPER BOUNDARIES 
Ce cide NUMBER OF EVENLY SPACED CROSS*STREAM PUINTS USED FOR CALCULAT 
~  ~“47 DO 4B J=1,41 
I IF (xUP(J,JT).EQ.AITS) GO TO 49 i San | 
4&8 CONTINUE af 
j 49 NPTSU(JT)2J91 
pL. 00 $0 Jai,4t See a oe Se Olas Sty ee ee Eh oY 
IF (xLOW(J,JT).E0,81TS) GO TO 51 
j 50 CONTINUE « : =a Fa NN are etaet ere Sete eae 
S51 NPTSL(JT)=Je1 = 
i DO S2 J=1,81 | 
LCF (YING J, JT) E0.B1TS) GOTO 53 Lees a See ee 
52 CONTINUE | 
53 NSTRM(JT)SJ1 = ee { 


IF (NSTHM(JT).GT,1) GO TO S4 
NSTRM(JT)=NSTRM(JT) #1 
PRESS(2,J1)=PRESS(1,JT) 
M02, IT) E2ME1 IT) Pieris sth ere ree a ca 
“THETAC2, JT) STHETACLe IT) 
PT(C2,JTI=PTCty JT) 
YINC2,JT) =YUP(1,JT) 
64 NSTRML=ENSTRM(JT) 
PROUND (1, JT) =PLOW(1,JT) 
PROUND(2,JT)=PUP(1,JT) 


aati . a ne ae ne one ence 4 


HUGE 21,68 
IF (NPTSL(JT) .NE.1) GO TO 57 
C* IF ONLY ONE VALUE IS INPUT, ASSUME LINEAR DISTRIBUTION 
LO" (2, 5ST) SHUGE 
YLOR CA, STISVLGK(L,JST) 
PLOWK(Ce,JT)=PLUW(1,JT) 
NPTSL(JT)=2 
57 IF (hPTSU(JT) .NE.L) GO TO 59 
XUP(2,JT) =HUGE 
YURC2,ST)=SYUPCI,JT) 
PUP C2, JT)=PUP(I, JT). 


| 
b-- ah ee a a a a NE 
| 


-_———— 


“NPTSUCJT) Se 
59 GAMI(JT)=1./GAMMA(JT) : ne ; | 
GAMLI(CJST)=GAMMA(JT)H1, ! 
GAM2CSTI=Z2Z.*GAMMAC ST) /GAMI CST) { 
j GAMINGCITISEGAMI CJT) *GAMI(CJT) 
FXPONSL./GAMIOG(JT) ONL opiates ee ee ee 


NJJMICJSTIENIIOIT) O14 
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NJIM2(CSTIENISOITI 2 
NJeNISCIT) 
NJIMTENJIMICIT) 
NIM2=NJae 

TF CTPRTC,NE.O) 
IwRITE (6,8) NSPTSLOCJT),NPTSU(JT)»-NSTRY(JT) 


a — ——— inhale 


C PLANAR CASES «nee RC e 6, 
c AxISYMMETRKIC CASESeerre HCA], 
Ce RC 1S PRESET TY 1,9 IN BLOCK OATA 


(X.NE,AITS) GO TO 60 
CHLONCL ITI NESRITS) X2XLOW(1 JT) 

IF (xUP(1,JT).EQ.KITS) GO TO 60 
(XUP(C1,5T) .GT.XLOM(1,JT)) x=xUP(1,JT) 


LOWER ROUNDARY 


“60 Kel 
IF (SSTRM,AND.JT.EQ9.2) GO TO 205 
IF (PROUND(K,JT).EQ.8ITS) GO TO 80 


LOWER BOUNDARY IS CONSTANT PRESSURE BOUNDARY 


3 (X,EQ,B1TS) x20, 
YHAR(1,JTI=YINGI,JT) 
PCONT(K,JT)=.TRUE, 

IF (CYLOW(1,JT).NE.BITS) GO TO 805 
GO TO 61 
BO TF (NPTSL(JT)+E0,0) GOTO 201 _ 


Ce _ LOWER BOUNDARY IS SOLTD WALL 
805 SOLIND(K,JT)=.TRUE, 
CALL LSPFITCXLOW( 1 JT) /YLOM( 1, JT) oNOTSLOJT) ¢ Xe YBAR (Le JT) 6140) 


UPPER BOUNDARY a mes ea ew 


81 K=2 
J DUAL=, TRUE, 
Ca SET DUALET BOTH TIMES THROUGH, FOR JT21-2, 
_C# INPUT, DUAL WILL BE WESET TO FALSE 
~ ROL, IT) SYRAR(L UT) See jae 
IF (PROUND(K,JT).EQ.RITS) GO TO 90 
" 
L. IF (YUP(1,JT).NE.BITS) GU TO 905 
GU TN 9) 
90 IF (NPTSU(JT).E0.0) GO TO 202 


IF NO UPPER CHA NNEL 


UPPER BOUNDARY IS CONSTANT PRESSURE ROUNDARY 


PCONT(K,JT)=, TRUE. 
YROR(NJ/JT)EYIN(NSTRMI SST) 


} 
tee _ UPPER HOUNDARY TS SOLID WALL 
[ 905 SULID( Ks JT), TRUE, 
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~ CALL LSPFEIT CXUPCL, IT), YUP CL» ST) NPITSUCIT) eK YEAR (NI,ITI,1,0) ee 
91 DYE(YRAR(NJs JT) eVHAR(L,ST))SELOAT(NIMI)D 


IF (TPRIC.NE.O) WRITE (O,0UTPUT) 
IF CNSTRMCJT).LT.2) GO TO 203 


cS ee 
TF CTTCTIZIT).NE.KBITS) GO TO 92 
TTCTI,JTIETS#(CLe+7MC LIT) *2ZMC 1, JST) *#GAMi (ST) *.5) 
92 IF (&x1SYM) GO TO 95 
R(i,JT)=1.0 
RC=0.,0 


on SSS —— a a et ce te -_—— ee = 





_————a 


i 95 IF (PTCI,JT).EQ.BITS) GO TO 98 
C* TOTAL PRESSURE INPUT 

00 96 L=1,NSTRMI 
PRESS(T/JTISPTCI STI eC Let 2M CL JT 2 e@ZM C1, J3T) *GAMI (JT) *.5) 
1 #8 (=GAMMACIT)/GAME CIT)? POEL Ce OLN ee els Tee eed 

~“FPenstant) cu 10 os. °° °©§©© 2 ae aca Ee ae 
TANTH(I,JT)SSIN(THETACT,JT))/COS(THETA(I,JT)) 

96 CONTINUE : 
GO TO 99 


- 


98 CONTINUE 
“C# STATIC PRESSURE INPUT 
OO 911 1=1,NSTRM{ 
PTC L/JTI=ZC1 e*#2M(L, JST) #ZMCL, IT) &GAMI CST) #65) #8 (GAMMA(JTI/GAMI(JT)) 
1*PRESS(I,JT) 
IF(RSTART) GO TO 911 
cote | AMR CES SE RSSUNCEHE TACT act 2400S CURE URC TA DERI 
91f CONTINUE ‘ a 


99 00 100 J=1,NJM1 
IF (EVEN) YBAR(J+1,JT)=¥BAR(J,JT) +0¥ 
100 RCI+1,JTIEYBAR( JFL, JT) *RCH(1.=RC) 
“CT eNSTRM© TS THE NUMAAR OF STEEAMLINES WHICH 15 BEING INPUT 
¢ __ SNPTS* IS THE NUMBER OF POINTS IN THE BOUNDARY TABLE 


r 


fe 


RN AA LELAECA SEL UE RAL SB  AS LeSd iin oie LE ET ed 
CALL LSPFITEVINGS, JT), TANTH(1, JT) NSTRMI,YBAR(1¢JT) + VOUBAK (1, JT) 

1 NJ,0) 

CALL LSPFITCYING1,JT)-PRESS(1 JT) /NSTRML,YHAR(I,JT),PRAR(L+JT) 

1 4NJ,0) 


yo PUL EC SUR Le Seer a ey te re st ee TREAT eee) oa Sy 


TSHTTCITIs JT) SOV, oGAMI CIT) &LS*® RRORARC I, JT) #RHOHAR(J,JT)) 
RHO(J,JT)=PRAR(J,JT)ISTS 
UCJ, JIT) ERHGKAR( J, JT) ®SQRT(GAMMAC ST) #PRAR(J,JT)/RHO(J,JT)) 
UCT, JITIFUCSeITISSORT CL #VOUR AROS, ST) *VQUBAK(S,JT)) 

105 RBARCJ,ITI=ERHOCS IT IHUC Se STIMK(S SIT) 
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C TARULATE PST VERSUS Y AT EVEN INTERVALS OF Y. STORE IN #UBAR] 
UBAR(1,J1T) =9,0 
IF (JT.LFQ.62) URAR(1,JT)SPSTONII-1) 
CALL LSPFIT CYRAR(1, JT), RRAR( LS ITIZNI- YBARCL JT) ,UKOR(L,ITIANJo m1) 


'¢ TEMPORARILY ST/RE INTEGRAND IN eRRAR» LOCATION § : wee ee 
1 
4 


IF (IPRTC.EQ,0) GO TO 112 ig : 5 a, a: ae { 
CALL TARPRT (3H2MN,RHOKAR(1,JT)¢NJ-10) | 
CALL TARPRT (SHTANTH, VGUKER(1,JST)+NJ,10) 
CALL TABPRT (SHPRFSS,PHAR(1,JT)¢NJ,10) 
CALL TABPRT (SH YAR, YRAR(1,JT) eNJ,10) 
CALL TABPRT (3HPSI,UBAR(1,J3T) ¢NJe 10,0) 





FIRST V4LCULATF DELTA PSI ACROSS THE ENTIRE STREAM BY USING ROU 
INCREMENTS IN Y, THEN TABULSTE PSI AT EVEN INTERVALS OF Y (AND 
STORE IN eUR4R= LOCATION), FINALLY TRULATE ALL PARAMETERS AT 
EVEN INTERVALS OF PSI FOR EASE OF CALCULATION, 


AANA 





“442 PSTISUBAR(NJ,JT)*UBAR(1,JT) 
IF (.NOT,EVEN) GO TO 128 
OPSICJT)=PSTI/FLUAT(NJM] ) 


PSI(C1,JT)=UBAR(1,JT) 
a= DQ 120 J=2,NJ Ae ; ee 
120 PSI(J,JT) = PSICJ<1,JT) + OPSICJT) 


CALL LSPFIT (URAR(1e JT) + VQUBAR(L,JT)sNJ-PSIC1 re ITI, VOUCT + JT) ¢NJe0) 
CALL LSPFIT CURBR (A+ STI + YRAR( H+ JT) ¢NJePSI (Le JT) + VOL e+ STI &NS~0) 

CALL LSPFIT (UBAR(1,JdT), PRAK(L,JT)«NI,PSIC1¢ITI¢PCL/ ITI +NI, 0) 
CALL LSPFIT (UBAR(1,JT),-RHOBAR(1,JT) oNJoPSIC Le ST) e 2MN( 16ST) 4 NJ 0) 
GO TO 130 7 eva are twee as joa i 


' 
1 
| 
\ 
| 
ee: en ve | 


| 

| 

| 

| 
—_ 


128 DO 129 Jz1,NJ 
PSI(CJ,JT)SUBAR(J,JT) 
YO J, JTI=YHAR(C J, JT) 
P(J,JT)=PRAR(J,JT) 
VQUCJ, JT) =VQUBAR( J, JT) 

129 7MN(J,JT)=RHOBAR(J,JT) 

150 OPSICJT)SPSTC2,JT)=PSI(1,JUT) 





a ew on 


IF (IPRTC.EG.0) GO TO 135 

CALL TARPRT (3H Ye YOledT)+NJo10) 
CALL TABPRT (3H Py, P(1eJdT),NJ,10) 
CALL TARPRT (3HVGU,/VOU(1/JT)»NJ,10) 
CALL TARPRT (3HZMN,ZMN(1-J3T),NJ,10) 
COLL TABPRT (3HPSI,+PSI(C1+JT),NJ,10-0) 


ee eh) Senay ee 


135 DO 140 J=1eNJ pres ~, 
TS STTCII, STIL. +GAMI CJT) ®.Se#ZMN( J, JST) #ZMN(J,JT)) 

3 RHOC JS, JTI=EPCI,ITISTS 

' 

\ 


UCI, IT) EZMNC J, JT) *#SQRT (GAMMA (ST) #P (Se JTI/(RHUCSe STI ACL. tVOUC SIT) 
1eVQUCJ,JT)))) 
PT (Sp STIEPC I, JTI RCL. #GAMI (ST) #.5*#ZMN(J, JT) #ZMN( Se ST) ) ®REXPON 
ae IF (JoNE.NJ) OPSECJTISPSIC Jed, JTI@PSI(JeJT) 2 ew 
t 140 ROJ,STIEV( Se JT) MRC OL eRC ] 
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“IF CIPRIC.EG.0) GU TO 150 

CALL TABPRT (3HRHO,RHO(1¢ ST) + NJe 10) 
CALE FARPRT C3 Us, UCL IEIGNS, 10) 
CALL TABPRT (2HPT,PT(1,J3T),NSTRMI,10,0) 


150 TISAVE(TI,JTISTICII, IT) _ 
IF (JT.EG.2) GO 10 160 
Jtz2 

GO TO 47 


“C# SET UP NJ VALUES TO PRECLIDE ERROR IN FIRST STEP IN ®&SSFD8® 
169 VOUR4R(NI,JTISVOQUCNT, JT) 








a ~ YBAR(NS,JT)EYONI, JT) 
PRAR(NJS,JT)=P(NJ+JT) 
RHOKRAR(NJ,JT)=PHO(NJ, JT) 
UBARK (NJ, JT) SUCNI, JT) 

GO TU 180 





201 IF (JT.€0.2) GO TO 179 
WRITE (6-1) 
WRITE (6,9) 
GO 10 178 

202 WRITE (6,2) 

WRITE (6,9) he 
Co. ce  -° Fou rene OF e aS is alas 
203 WRITE (6,3) 

WRITE (6,9) 
GO TO 178 


—_———_-—_ 


C* SET UP LOWER BOUNDARY FOR SSTRM=DUAL FLOW CASE 
205 NJL=ENJIC1) 3 Se an ae 
SOL10(2,1)=,FALSE, 
PCONT(2,1)=.FALSE, 
YBAR(1,2)=YBAR(NJI,1) 
YIN(1,2)=YBAR(NJI,1) 
GO TO At ener =: 
C* IF NO BOUNDARIES ARE UPPER STREAM ARE INPUT, DUAL IS FALEE 
- $78 ERR = , TRUE. 
179 OUAL=.FALSE, 
180 RETURN 
1 FORMAT (1X,SIHINPUT ERROR@e-NO LOWER KHOUNDARY HAS KEEN SPECIFIED ) 
“TO FORMAT (ixeSIHINPUT ERR(ReeeNn UPPER BUUNDARY KAS BEEN SPECIFIED J 
3 FURMAT (1X,S7HINPUT ERRUR@*"NO INITIAL STREAMLINES HAVE BEEN SPECT 
1FIEO ) 
B FORMAT (1%,UHNPTS,5110) 
i 9 FORMAT (1x,S7HTHIS CASE 18 BEING TERMINATED, NEXT CASE wILL SE REA 
| 40 IN 
~ ewe 
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a ee | 


epee pany ] 
’ SUBKMUTINE READT - - — ; 
*READT i 


LOGICAL FOUND, OUAL,KARPRT 
COMMOUNSCLOUGIC/DUM2 (4), DUAL, 0UM6(05$),KARPRT | 
COMMON/CHNORYZDUM1 (250) ,PS11 (23-2) - wi at ae See ——4 
COMMUN /CINITS NSJCO)eNIIM1 (C2) ,-NJIIM2(2)  STABIL »XUUM, XL, ITPRINT, OX2 

1 ,OxX3,TS,0PSI (2) 


COMMON STKEINS XTKE (CO), TKEBDV (CO) NTKED XLIKE (COO) pMIET, XCL00), 
{ FIJETATIETVORAJ 
“COMMON /CENTROZ PTOTI(20,46),XPT(20) »NPT,OUMUS(4US)~ 

COMMON/SCINPUT/SPTINP (40-2) -0UM3 (162), 2M( 4002) ,UUMY ($26) -PUP (2072), 
x DuUMS(40) 


COMMON/TROUBL/ ERR, ENDJOB 
LOGIC 4L ERR,ENOJOB 
INTEGER ORGF/UPOF NE MF ,SCRE 
COMMUN/FILES/ORGFE ,UPDF ,NEWE, SCRE 
COMMON/FILKASCSC 
COMMUN/KEYS/HEV CLL) KEYBCL1),KOOA(1{)-KOORC(I1) 
COMMON /CNTRUOP/ kHS2 eRHS,RHS1 
CUMMUN /CPRENT/ XIPRT(2) 
COMMON /COLDPT/ OLDPT(23r2),OLDPTS(2) 
COMMON /CSHKPT/S SHKPT( 23,2) 
COMMUN /CKHITS / BITS,BLANK 
COMMON /CJDUMLZ NAMF(1O0)-TITLE(C10O)- IOENT(10), 
ADDRES(10),1IDENTI(10), 
TWODT(9),UKITS,OERR,GC, FOOT, VE,ME + TIE, TE, AX Te NJeNM,UE, 
MIXPRE,FLUWI,MERGE,NVOCOUNY ,CTI,CTO,CT3eCT4,CTS,CTorCT7,CTA,CT9, — 
CTP,CTS,CT%,GAM,8G,PR,PRT,SC,TREF ,YUREF,SPsSLEN,OPRIN, PLOT, 
CoeMIX,CREeMAXIT, TOL, SUPB, 
XPRKN(100),UC(100),TC(100),TIC(100),PTC(100), 
WICLO0),YICIO0)-TICC100)+, YSONIC(100),YCRC100),xD(100),RN(100), 
YRC10O0)/,YCD(100),PDO(100)-HV (300) /442(100),VEA(100),TE2(100), 
TO,NC/ CNAME (6) FAL S(O) ,ALIO (Oo), ALE CH), SCMCO)/DO1FF : 7 
COMMUN /CJDUM2/ NEG, SUPD,SUPSTP,CORE,CORSTP,MER,MERSTP, 
\ ® ¥(200),UN (200), THD( 200), TID (200) ,RHO( 200) /U(200),T(200), 
! * TOT(C 200), TTO(200),PTI(200),*OLF1 (200) ,-MOLF2(200),MOLF3(209), 
& MOLF4( 200) -MULF5(200),/MOLF6(200),J0 
COMMUNZEXLE LORE 


j 
| 
| 
| 
} 
| 
| 
| 
{ 
| 
| \ 
ea a Oey Pas (reer Caen Se Seer ns Coeeen hemewiee Oe met! Crane 


ee ee ee 
—" 


DIMENSTON ¥LN(200),-PS16200),PTOT(200),ED(200), XMACH(200) 
DIMENSTUN #(100) 

DIVERSION PSIPT( 200) 

DIMENSION PTNEW(C200) 

REAL MJET 

COMMON/CUMPIL/ © PE-BeNXTA,;GCIJ+EJET,/ VIET PTJET 
x NPD, PST,PTUT,S ED, XMACH 


READ CENTERLINE RECORD FROM JETMIX 

ASSIGN 10 TO LGO 
1 READ (2) KXKLSKREC, a > ‘ 
# NAME, TITLE, LUENT,ADORESSIDENTI, ae a ] 


Oe 
' oO } 
ee ee Se ey See ee 
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TwOOT , 

DRITS, DERR-GCe/GCJFOOT, 
OLAI,MIET,TJETAFIJET, VIET, TIJET-EJET, 

PE,VE ME, TIE, TE, SXIT,NJ,NM, 

Ub eM THPRE HELO ,FLOMI MERGE NV,CONI, 
CTI-CTACTS¢CTECTS-CTH+CT7,CTA,CT9I+CTP,CTS,CIM, 


eCoeMIX,CR,MAXIT, TUL, SUPB ¢ 

AXP KPEN, ReUCe TCeoTICePICen de VI eTICe 

* YSONIC . 
' ®YCR,XD, 8D, YRAYCO, PD WV eMAC, VE Cr TESCeNXTAGIDy 
#NC, CNAME, AL J+ AL JO, ALE, SCM-OIFF 
GO TO LGN. (10,20) 


4 GAM,RG,PR, PRT, SC, TREE »MURFE,SP,SVsSLEN,OPRIN, PLOTS 








f, £0 TEC XEcEO.BLTS ) KEZNLE 
¥L = 2eeXt 
00 15 I=1,2 

15 PUP(I,2)=PE/PTJET 
RETURN 


> iene 


"ENTRY READTI 


ye CALCULATE DELTA PS] FOR SSFD VALUES 
{ SCALE = PTINP(1,1)/PTJET 
NJENSICL) 
DELPSL=PSIL(NJ, 1) @PSIN (104) 
NJENSI(2) 

DELPS2=0, ‘ 
IF (DUAL) DELPS2=PSTI(NS,2)=PSTI(1,2) 


tJ21 
Wrens ASSIGN 20 TU LGO 
20 OF 100 [=1,NxTA 


~ 


* READ STATION RECORD FROM JETMIX FILE 


READ (2) JRECsK*X, KREG, SUPD, SUPSTP,CORE,CORSTP+MER,MERSTP, 


® NPD,PST r+ Ye/UDse THO,EDs, TID, RHOLXLN, 


IF€ XCEL) NE SAPICIS) 3 GO FO 100 


Ta SET JETMIx DELTA PSI AND INITIAL STATION PT AND MACH 
a IF CIS ,GTs 41) GO TO 40 
DPSIPT=PSI (NPD) =PSI(1) 
- PSIKATS(DELPSI+DELPS2)/0PSIPT 
~~ 60 eS Let,nPO ~ : Tk 
PTOT(L)=PTJET 
25 *MACH(L)SMJET 
GO TO 45 
© TEST WHETHER SONIC LINE ITS NEARING CENTERLINE 
40 CALL LSPFITCXMACH,PST,NPO,1.1-PSIADY,1,0)  ° »}»}8— 
TEC(CPSTBOY .LT. .1eO0PSIPT) GO TY 150 
US KPTCITJ)=2,.exK(1) 
XTKE (CT J)=xPTCIJ) 
MLTKE CIS) S12 0#2,*KUNCLI/DIAS ee an 
1022 
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a 


Be Wretee tence 


poe ee 


4 





- CONVERT ENERGIES TO INTENSITIES AND SCALE PT VALUES 
ig 00 50 L=t,NPO 
50 PTOT(L)SPTUT(L) SCALE 


i# SCALE JETMIK PST VALUES TO SSFD VALUES 
i PO SS LE1,NPD 


, 95 PSIPT(LY=PSI(L) #PSIRAT 


es INTERPOLATE TO GET VALUES OF PT AT SSFD PSI VALUES 
JSTART=1 

| SPTEL 

+ 

| 60 NJENJICITT) 


JSMISISTART 1 

JENDSNJ+JSMI1 

DO 65) J=JSTART,JEND 

JS=J-JSM) 
SURE T CUS IETS Me 
65 PTOTJCI JS, J) =PTNEWCS) 


IF (RARPRT) 


CALL LSPFITCPSIPT,PTOT,NPO,PSIL (Le JTT) ,PINENCISTART) »NJe0) 


TWRITE(C6,1054) KXPTCIJS) , Ide (CPTOTICIS, J) eJEUSTART, JEND) 


1054 FORMAT(1X,F10.5¢1T4+ (1Xe4HPTOT,7F15.8)) 
_IFC.NOT. DUAL OR, JTT .E9. 2) GO TO 70_ 


JSTART=INJ9} 
JTT=2 
GO TO 60 

70 CONTINUE 





re FIND EO ON MACH = {,.f CINE eh pe ee 
CALL LSPFIT(XMACK,ED,NPO-I.1,TKERDY( IJ) 1,0) 
GO TO 101 


———r 


100 CONTINUE 
| __200 3d z IJel 


TRO Ld GieNet 3 GO TO ES 


REWIND 2 
GO 10 1 


— 


150 NIKESIJ@1 
NPT=NTKE 
YF CKPTCNPTS CT.XL) XLEXPTCNPTY oa ee ae 
DO 175 T=k,NXTA 
175 «(1)e2,*x(T) 
RETURN 


+ 


_ 200 WRITF(6,291) X(T) 
GO TO 275 
250 WRITE (6-251) 
a FORMAT(///3bHeee CANT FIND CENTERLINE DATA RECORD) 


se aoe, tee | acitend eae 


275 FRR=,TRUE. 
; RETURN 
9999 FORMAT(10F 10.5) 
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201 FURMAT(///35he*8*8 CANT FIND STATION DATA FOR x = ,F{0.6) 


oe ee 


_C* IF PCONT IS .TRYE, THEN SOLID CAN BE EITHER TRUE OR FALSE 


*DECK SSFDCA 
F (VERLAY/SSNOISE,2,2) 
PROGRAM SSFOCA 


COMMON /CLOGICZ PCONT(C2,2),D0UAL,SLIP,AXISYM+ SSTRM,BARPRT,DUMEND 


1 #SOLID(C 2-2) 


Cc MAIN PROGRAM FOR SS FLOW CALCULATION 


COMMON /CXOISC/ xMDISC,XSAVE,IOILSC,MOISCC 


C* JF PCONT IS FALSE SET SULID .TRUE.B=-<IF NEITHER IS INPUT, 


C* A SOLID WALL 


OU 60 K=j,4 


60 IF (,NOT,PCONT(K,1)) SOLIO(K,1)=.TRUE, 


SLIPS, FALSE. 
IF C.NOT.SSTRM) GO TO 70 


C* MAKE SURE SLIPSTREAM Ix TREATED AS A SOLID BOUNDARY 


SULIOC2,1)=.TRUE, 
SOLIOC1,2)=.TRUE. 


70 IF CIOISC2EQ.11) CALL RESTRTI(4) 


120 CALL SSFOM 


IF CIDISC.EG.2) TALL RESTRTI(3) 


IF CIOISC.EQ.10) GO TO 120 
RETURN 


C* DATA KAS VEEN STORED AND FLOW 
120 I01SC=-1 
GO TO 4119 
END 





IS BEING 
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REDTARTED 





PROGRAM AS 














sDECK BNDRY 7 
; SURROUTINE BNDRY(JSJJeJJ,J) f SS acini } 
*BNORY USES MOC 70 CALCULATE B.C. eeBNORY&® \ 
‘ COMMON /CCRNERZ NOETSM1,KDUM,ICRNER, XCRNER 
COMMON SCKNDRYZ RHO (23.2 P0238, 20 UC 2de2) FV (2542) VOU(23,2) 


2 sPST(2542)+ R(23e 2) FYRAR (2542) -RMUER (2542) USAR (23,2) | 
Be VQUBAR(2 542) RBAR( 23,2) ,PHAR( 23,2) -PST2( Ler) e2MN(25e2) 
r G ~pPROUND (2,2) DX RNI,TTeRC,DXODSY,PSIL,YCALC,SLUPE (2,2), TT (Lee) 1 


COMMON /CMLIM/ ZMLIM 

COMMUN /CSHOCKS P1052) ,U1 05,2) -,RHOL(S,2) -VQUL (S62) oP 25,2) 

PeUPCS pA ARKRIACS 2) FP VGUA(Sr 2 YAS eA) eRA(S re) 

COMMON /CSHK/ TANS1-OSHOUCK,PSISHK,DELP,DELVQU, JLUM, JSHOCK 

1, XSKOCK (2), YSHUCK 2 ; sola : rh ee i ve 
COMMON /CINIT/S NJJCAV+-NIIMI (C2) -NIIM2(2),-STABIL XXL, IPRINT 0X2 

1 ,0%3,7TS,D0PSI(2) 

COMMON /CLOGIC/ PCUNT(2,2),0U4L, SLIP, AXISYM,SSTRM,RARPRT,-ENDJUB 

1 ,SOLIN(2,2) : 

COMMUN /CGAM/ GAMMA(2),GAM1(02)+G4Y1(2)-,G8M2(2) GAMIOG(2) 
___ COMMON /CJLROY/ JLHDY,JLADYI,SYRDY_ 7 ee ee ee 
DIMENSION VQUCK( 1,2) ¢RKOCH(1,2),UCKH(1,2) -YCH(1,2) 

1 ePCH(1,2)-RCK(1-2) 
COMMON /CNTROP/ RHS? 7RHS,RHS1 
COMMON /CPTSLP/ xJUMP 
COMMON /CKEDYPR/ xADY(4) 
COMMUN /CINPUT/S PT( 40,2) ,0UMINP(64R) 3 7 
OIMENSTION — PHL DCE), UHLD(6)-RHOHLD (6), VGUHLD(6)-/PSTHLD(6) 
DIMENSTON VPSLCOH(K&)-VPTSLY(4),VPTSL2(4) 
COMMON /COPSIC/ OPSI1(2)¢0PSIC(2)sPTPRE (2) 
LOGIC4L PCONT,DUAL,SLIP,SOLIN,NSKOCK, TADI(222),AX1TSYM 
DATA IPRESS,ISOLIO,IREGPT /HHTIPRESS, BHISOLID, 6HIREGPT/ 
DATA JADJ 44, FALSE.S, KIT S{/ 
C ~ JJJ= NUMBER POINTS 19 KE USED BY LSPFIT 
C JJ = IDEX OF FIRST CELL IN X VECTOR AT WHICH INTERPOLATION 
C 1S TO START, 
3 J = CELL IN WHICH COMPUTED VALUES ARE TO BRE STORED 
1GOs-1 
KSHOCKs3 
SIRE ne eRe oe BOR RS NG ae anes ee : ‘) ai oon _ 
JHOLOZJ 
JJHULD2JJ 
110=0 | 
Ili 

IF (x,GT,x*BOY(1) AND. XKHDY(1).EO.xXADY(2)) ITPRINT=1 | 
~ UONTSO6, ee Pa <4 ae . ‘ ha Poe i ae aie Pe eae ee ° | 


fccnenceiiaioceen 


eS ee 


{ 
| 
| 
| 
| 
| 
' 
he 


+ 


eee | 








C* [CRNER=Se6 MEANS A DOWN SHEICK YS CROSSING A SLIP LINE | 
Ce ICRNERSe7 MESNS AN UP SHOICK 15 CRUSSING A SLIP LINE | 
IF (CCICHNER EQ, (#0) .OR,ICKNER.EG, (#7)) AND, SLIP) ONLEL 

L YHOLDSYRAR(J,JT) 

PSIRNY=sPST(J,JT) ~ 
| NJIJTENIICIT) | 
i COLL ENTROP(1,J) 
| JSHkK=0 
} IF (xSHOCK(JT).LE.X) JSHKEJSHOCK = | 
| 

J 


ICRNEREeS 15 & SIGhGL THAT A SURSONTCeSUPERSONIC SLIP LINE IS BEING 
THIS TIME YRRUIUGH @eKNURY#® @eC\NFOIMae WILL BR CALLED = 


rc 
on 
' 
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50 





IF (SLIP) GO TO 150 7 
1f (J.tO,JL8OY) GO TO B88 : i ic 5 a ee eit s 


C* UPPER BOUNDARY 


“Ce SHOCK CROSSING SLUP LINE 


87 


ea 


“KSGNE]. 


C*# LOWER BOUNDARY —__ 


Ks2 
SGN=1, 
L=3 | 
KSGN =<] a { 
IF (CICRNER,EQe("6)) JAze- ae oe : = 
J2=J-2 

JleJel 

SGNSHK=1, 

IF (DSHOCK) GO TO 89 

tsa 





| 
i 
| 
| 
| 
} 
| 
| 
| 
| 
| 
i 
| 
i 
| 
| 
if 

——— 


JSHK=JSHK +1 

SGNSkKK=e1, 

IF CICRNER.EQ.(-7)) ONL=1, 
GO TO 89 





eae : : 7 i 
PSISKK=PSISHK*] ,003 | 
GO TO 89 


SGN=e1, 
K=1 

Lea 

IF CICRNER. EO. (24) .0R,ICRNER.EQ.4) Lee { 
Je=Jt2 
JisJel 
KSGN=-1 | 





C*# ADJUXT MEANING OF JSHK FOR LOWER BOUNDARY CASE 


SGNSHK=<1, =e | 

IF CICRNER.EQ.(*5).AND.JT,EQ0.1) ICRNER=<9 

IF CICRNER.EQ.("7)) GO TO 87 } 

IF (.NOT,OSHUCK) GO TO 89 ! 

JSHK=ISHKe1 ane alll ea Fe a - et Ses - j 
| 
1 
| 
1 





SGNSHK=>1, 
L=3 
KSGN=] 


_C# ADJUST QUANTITIES FOK SHOCKS NEAR A BOUNDARY ear 


“Bd 


_ 90 
ve 


98 
100 


— i 


GN2=0, 
ON5=0. 
IF (JSHK .EQ.J!1) GO TO 90 es | 
IF (JSHK .NE.«J) GU TO 98 
KSKOUCK=KSHOCK4¢KSGN 

K SHOCK OK SHOCK 4KSGN | 
DELPEPA(L, JA) =P (Leda) | 
DELUSUACL JA eUL(L, JA) | 
DELRHOZRHUe (Le JA) SRHOL (Le JA) 

DFLVOUZVQU2(L,>JA)*VOUI(L, JA) 

GO TO 100 

IF (ON1.NE.0.) GO TN 92 7 
PHLOCKITI=h (Je JT) *#DELPRONI 7 a . ies 
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_ GO TO (110,1157140,130,120),K SHOCK 
[C* _ e=KSHOCK={~>2 A DOKN SHOCK IS WITHIN & 
Tee OR|=AN UPSHOCK IS wITHIN 
WC*  eeKSHOCKS222 A _DUYN SHOCK IS WITHIN Tw 
Ca . OQR*=A4N UPSHOCK IS WITHIN 
Ce  =eKSHOICK=3e2 NO SHUCKS ARE NEAR THE KU 
Ce |eKSHOCK=Ue~2 A DUENSHOCK IS wITHIN TwO 
Ce ORe-AN UPSHOCK TS aI THIN 
“C# |=KSHOCK=5<*  & DOWNSHUCK IS wITHIN A 5 
Ce OR SAN UPSHOCK TS WITHIN: 
110 KJTT=KJTe+l 
PSIHLO(KJTT)=PSISHK 
PSIHLOCKIT +2} =2.*#PSISHK=PSTHLO(KJT) 
~~ PHLO(KJTT) =P2(L, JT) 
UHLD(KJTT)sUu2(t,JT) 
|  MOURED(KETTY=VOUCtEsaT) 
ie RHORLD(KJTT)=RHOQ(L/ JT) __ dl ne og 
115 KJTToKIT+2 
PHLO(KJTT)=P2(L,JT) 
| VOUHLD(KJTT)=VGuU2(L,JT) 
UHLO(KJTT)SU2(L,JT) 
—— “RHURLOC(KIJTT)=RHOQ(L, JT) = = =—~S— 
GO TO 140 
——“T20 KITT=KUT+l = 


f PSTHLO( KIT 42) =PSIBUD (KITT) #2, =<PSTHLD(KJT) | 









130 


140 


Ce 


_VQUHLOCKIT#1)=VCUCI 





END GF SHOCK ADJUSTMENT 


PHLD(KIT#1)sP(J1 -JT)+DEL PRON? 
PHLO(KJT+2)=P(J2 /JT)+DELP SONS 

UHLOC( KIT) SUC Je JT) + 0ELU*ONI 
UHLDOCKIST+#1)=UCJ1 2 JT) +DELUSON2 
UHLOCKIT#e2ASUCIO -JTI DEL UFONS 
VQUHLOCKIT)SVGUCJ,JT)+0FELVOUSONI 
eJT)¢DELVOQUFON? © 
VQURLDOKJT#2)=VQU(J2 JT) #DELVQU*ONS ~ 
PSIHLO(KJT)=PSI(J-JT) 
PSTIHLOCKJT+1)=PSECS1 - JT) 
PSIHLO(KIT#2)=PSI(J2 .JT) 

HRORMLD (KIT) =REU( I, ST) SOF LRHOROND 
-RHOKLO(KIT+1 EPHOCSI 


“RHOHLO(KIT#2)=RHU(S2 4 JT) 4DELRHO®ONS 


JT) +DELRHO*ON2 








SINGLE POINT OF AN UPPER BUUN 
A SINGLE POINT OF A LOWER BUU 
O POINTS OF AN UPPER KOUNDARY 
Tw POINTS OF A LOUsER BOUNDAR 
UNDARY 

POINTS GF A LOWER RUUNDARYe= 
TwO POINTS OF AN UPPER ROUNDA 
INGLE POINT OF A LUvtER ROUNDA 
A SINGLE POINT UF AN UPPER BO_ 





eS eee ee eee en eee 


4 


BI Yoapeae! "we seed tee 








PSIHLOCKJTT)=PSISHK 


VOUKLOCKJTT)=VGUI(L/JT) 
UKLOCK ITT) FULCL, JT) : 
PHLDCKITT)=SPI(L,JT) 
RHOMLOCKITT)=RHOL(L, JT) 
VQUHLO(KJT+2)SV9ULCL IT) 








~~ GHEO (KI Te? SUT CL, JT) iit tt ee ee 


PHLOC(KIT+2)SPICL JT) 
RHOHLO(KJT+2)=R&HO1 (LS JT) 

IF (xX,GT,xKDY(2)) CALL TARPRT (4HKPHLD 
IF (JJ.EQ.0) RETURN 


»PHLO, 3076) 


1027 








[ 


“C*# USE -PCRIT= TO BE SURE FLOW IS STILL SUPERCEITICAL 


_C* CALCULATE AVERAGE VALUE OC COEFFICTENT ALOMG CHARACTERISTICS 


| 





re 


[Ce BYPASS SINGULARITY AT AXIS OF SY“METRY 


150 VOURAR( Je JT)=VQUHLO(KJT) 


ExPOR=e1 . /GAMIGG(JT) 

PCRITSPT( J, JT) #( (GAMMA( JT) 41.)#.5) ##EXPON*®, 99999 

IF CICRNER.LEQ.(#9)) SLOPE CK, JTI=VQUBAR(J, JT) 

JHVMLEJHULD] 1 

KE -eNOT.PCONT(K,JT)) VQUBAR(CJ+ST)SSLOPECK + JT) 
PRKAR(J,JT)=PRLD(KJT) 

IF (PCONT(K,JT)) PBAR(J,JT)=PHOUNO(K, JT) 


DPSIICJT)=.5*0PSI(JT) 

180 ICH=0 

195 PSI2(1,JT)=PSIRDY=NPSI1 (JT) &SGN 
Catt LFIT (PSTHLOCKIT) SUHLO(KIT) - JJJ,PSI2(1 IT), UCH(1,5T),1,0) 
CALL RELY (PSTHLD (KIT) +PHLOCKIT) +> JJS,PSIOC1 + IT) ePCH( 1+ IT) 41,0) 
CALL LEIT CPSIHLO (KIT) » VQUKHLD (KIT) »JSI,PSIOC1/ JT) VQUCH(1,3T),1,0) 
CALL LFIT (PSIHLD (KIT) »RHOHLD (KIT) JIU, PST ACL JT)» RHOCH (1, ST) 6120) 
CALL LFIT CPST CII oe JTI ROIS ST) oS IIe PSI2Ct se JT eROHC 1s JT) 6150) 
IF (x.GT.XRDY(4)) CALL TARPRT (SHVQGUCH,VQUCH,12,18) 

~FRNDR¥SO © ing aig te ea en fe anes ae a ee Ig 





Ce START OF ITERATION FOR PRESSURE, WALL TANGENCY CONDITION, OR SLIP LI 


191 IF (SLIP,OR,PCONT(KsJT) OR, ICRNERLEQ.(99)) YRAR(J,JTI=V(S,JT) + 
1.5*0x*(VQU(J,JT)+VGUBAR(J,JT)) 
RKRARK(J,JT)=YRAR(J,JT) #kC+(1.-RC) eee Ae a ery Ge eee 
TROY=0 

192 TSHTTCTIsSTIeCPBAR(CI,JTISPT (CS, ST) Ja aGAMi OG (JST) 


HHOKAR(J,JT)=PRAR(J,JTI/STS 
IF CTS.GT.TICII-JT)) TSSTTCII,JT)*.99999 
UBLRCS,JT)SSORTCCTTCII-ST)=TS)*GAMo(JT)/(1.+VQUBAR(J,JT)* 
IVOURAR(J,JT))) 
BROAVGS(RHOCH(1,JT)+RHORAR(JS,JT))*®.5 
US VG=(UCH(C 1+ JT) +URAR(J,JT))*.5 
UAVG2SUAVG*UAVG : 

Cex MAKE Y=YST CURVE PARABOLIC NEAR AXIS OF SYMMETRY 
TF CYROLD.LEG 9.) HOHCL,JTIZSORT(C 2, *P51 201,37) /(RHOAVGRUAVG)) 
RAVGECRCH(J,JT) #REAR( J,JT))*.5S 
DOLORES IRT (DRO Ke (RK BRAR(J,JTIOROH(1,JST)) a*2) 
VGUAVGS(VOUCK( 1, JT) +¢VQUBAR(CJ,JTII#,5 





TF (RAVG.EQ. (0.0) .4ND.X.GT.XBDY(1)) WRITE (6,1723) 

IF (RAVG,FO.0.) ROVG=,01 
1723 FORMAT (10%,GHRAVG) 

VUR&YGSZVOQUAVG/RAVG 

IF (RCH 1ST) GI. C2. *HBARCS¢IT))) VORAVGEVQUCH(L,JTIZECHUI, JT) — 
IF (RKAROCS/ITI.GT. CoeeRCH(1,5T))) VORAVGEVGUBAR(J,JTI/RBAR(CJ,JT) 
GPLVGE(PCH( LJP) ePHAR( J, JT) ) & .SaGAMMACJT) 
ZMEVGATUAVG2# (1. +VQUSVGEVQUAVE) *REOAVG/GPAVG 
IF (2MAVG2.LT.2ZYLIM) ZMAVG2=7MLIM 


le eile ita aca 
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ea feeenee) Ce eeeen Caen 





[ DPSIC( JT) =DX*RHOAVGRUAVGSRAVGETANA®((1,+VQUAVGRVQUAVG)/(1,.=SGNe 
re 1VQUAVG*TANA)) : 7 aa ie a ae a 
bee SLIPST IMPLIES THE RUUNDARY ITS & SLIPSTREAM 
pe SLIP=F TMPLIES THE ROUWDARY JTS NOT A SLIPSTREAM 
| 202 PGUESS=PBAR(J,JT) _ fe eee ee ee Sie en ey ee en 
r VGUESS=VQUBAR(J, JT) a 
IF (PCONT(KsJT)) GO TO 205 
( SOLTO wALL BOUNDARY #-QOR MACH DISC BOUNDARY 


Ce USE *#*#LO0G Par VARTABLE 
~~ DVQUCE=SGN*UAVG2*RHUAVG#TANA®(VQUKAR(J,JT)“VOQUCH(1,JT)) 

\ CSOUND=SukT(CGPAVG/RHOAVG) 

r DYCSVARAVGARHOAVGATANASUAVGHRE 
i, ORL =eRHS1*(TANA+SGN®VQUAVG)/(UAVG*SORT (1. + VQUAVG*VQUAVG) *0Xx) 
DReS=RHOAVG*UAVGRTANA&RHS2 
DVOUCECOVOQUC H+ (DYC+DR1 +R) eC SOUND *OLOR) 


—ae- - oo 


PBAR(J,JT)SPCH(1,JT) *EXP(DVOUC#GAMMA (JT) /GPAVG) 


ERROR=(PGUESS=PBAR(J,JT))/PGUESS 
XJUMP=.2 
LIF (%,GT,xBDYC1)) WRITE (6,4024) PBAR(J, JT) + PGUESS/ERROR JT rd 
IF (SLIP) GO TO 280 
CALL PTSLP (PGUESS, ERROR, IRNDRY,VPTSLP,0,) 
TE CPGUESS.LT.PERITT) GO TO ee 
PGUESS=PCRIT 
IF (PCRIT.EQ.VPTSLP) GO TO 2le 
_G0 10 210 : 





Cc CONSTANT PRESSURE RUUNDARY 


205 PRAR(J,JT)=PRUUND(K, JT) 
CALL MOC (VQUKBAR(S¢ JT) +VQUCH (Le JT) ePRARC Je JT) ePCHC Le JT) + SGN, TANNA’ 
TRHOAVG,4VG,VORAVG,OLOR, IPRESS) _ 
IF (SOLID(K,JT)) GO TO 2071 
FRREORZVGUESS@VQUBAR(J,JT) 

SLOPE CK, JTI SC VQUBAR(J,JT) ¢vQU(JeJT))*.5 

XJUMPE",020 

IF (X.GT.XBDY(3)) WRITE (6,4027) VQURAR(J,JT)+-VGUESS,ERRORS JT, J 
CALL PTSLP (VGUESS,ERRUR, LKNORY,VPTSLP,0.) 

IF (PBARC J, JT) GT. C.UeP (Se JTY) OR. TAOU(K,JT)) GO TO 210 





Tce IF EXPANDING TO A NEW PRESSURE WHICK ITS SUBSTANTIALLY DIFFERENT, ADJ 
Ce THE INTTIAL GUESS FOR THE STREAMLINE SLOPE 


' 
teat 
SS SS ee een ee Sena eee Oe 


ie 








TADJ(K,JT)=. TRUE. 

H VGUESSEVGUBAR( J, JT) 

r ~TBNDKY=0 eae te es 2s hae a gaa 
GO TO 210 

| 2071 CONTINUE 

¢* BOTH SOLID AND PCONT ARE ,TRUE.©eMUST CALCUQATE MASS FLOW DECREMENT 


Ie @ SINCE ROTH SOLID AND]PCONTS AWE TRUE, THE FLOW CANT BE PARALLEL TO T 
[cs WALL, TRACE Tre VUTER S.L. BACK TO THE PREVIOUS *=STATION, FIND Trt 


1029 








les 
res 

Ce 
Ce 


— 


! 


iN 
|\o 
~ 


THERE, AVERAGE WOITH THE CURREAT SLOPE TO FIND *#0Y*, THE DISTANCE TH 


HES MOVED OUTWARD. JHIS TIVES THE *y* POSITION UF THAT S.L,. AT THE 


CURFENT STATIUN, CUMPARE IT WITH TRE DESIRED CURRENT VALUE, #YBARS, 
CHANGE *PSIBDY* ACCORDINGLY, 

CALL LSPFIT (PSI( IIe ITI ,VQUC IIe IT)» JISePSIRDY, VQUPRE 41,0) 

CALL LSPFIT CPST(JJeJT), VOIIe ITI + IIS PSIBDY, YPREV,1,0) 
DY=(VQUPRE ¢VQUBAR(JS,JT))*®.5*0X _ 








~ YCALCUZYPREV#DY 
ERPORZYHULD@YCALCU 
XJUMP=,1 
CALL PTSLP (PSIBDY,ERROR, IBNDRY,VPTSLP,0,) 


IF (.NOT,SLIP) GO TO 210 a ie ; 

IF (X.GT.XRDY(2)) WRITE (6,4025) YSAR(J,JT) + VQUBAR(J, JT), Je, JT 
IF (JT.EQ.2) GO TO 209 

VQUBAR( 1,2) =VQUBAK(J,JT) 

JTt=2 
KJT=4 
Jo! 





yo ay Smet as as | 
1 


"T 


JJ=1 
SGN=-1,0 
K21 3 
IF (IBNDRY.NE.0.OR.ICH.NE.0) GO TO 191 
JSHK=0 3 
KSHOCK=3 


aT ae 


| 


| 
4 





IF (XSHOCK(JT).LE.X) JSHKSJSHOCK 
SLOPE (K,JT)=VQURAR(1,2) 

GO TO 88 

209 JT=1 

KJT=] 
JJ=JJHOLD 
JeJHOLD = ——S~*” 
SGN=1.0 

K=2 
ERROR=(PBAR(J/JT)=PBAR(1,+2))/PBAR(J,JT) 

XJUMP=-e,15 a 

IF (X.GT.XBDY(2)) WRITE (6,4026) SLOPE(1,2),ERROR+PBAR(J,JT), 





L SE EES CRC See Yer eeemn? cremenon ey) eae Renee 





~  $PBAREL,2Y — ‘a i sis “§ 
CALL PTSLP (SLOPE (K,JT),ERROR, IBNORY,VPTSLP-0.) 
VGUESS=SLOPE(K,JT) = 
210 TOL=ARS(ERROR) 
IF (I@NDRY .GT. 10) GU TO 208 








IF (TUL.LCT..0001) GO TO eit a NE aa MR ce RIS Wy ne 
VOQURAR(J,JT)=VGUESS 

PBRAR(J,JT)=PGUESS 

Go TO 191 


212 TF(X.GT.xROY(1)) WRITE(6/4029) JeJT | 





~ PRAR(S,JT)=PCRIT 
208 IFCK.GT.XKDY(S)) MRITE(6,1220) UCH(1,JT),PKAR( J+ JT) /PGUESS, 
1VOUBAR(J,JT),VGUESS 
211 JTITOL=1 
KSTOR=1 
213 TOL=ABS(COPSTICJT)-<DPSIC(JT))/0PSI(JT)) 


IF (X,GT,2H0V(4)) WHITE (60,4023) OPSICCIT)-OPSIICJT)-TOL,UCH(1eJST) 
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,C* ENDSURE DUAL STREAMLINE PROPERTIES REMAIN IDENTICAL 


- 


eres aa 


age 


[ 


248 IF GITLFOL 0.0) GO To 292 °° 


IF (TOL.LT..0t) GO TO 220 
IF (ICH.GT.S)? GO 10 22s 
XJUMP>,5S 


CALL PTSLP COPSIT(ST),OPSICC ITI, ICH, VPSLOH(KSTOR) +1.) 


IF (.NOT,SLIP) GO TO 195 
HF CIT SEG.S) GO TO 289 
— ICK=ICHe1 





GO TO 216 
24S IF ¢JT.E0.2) GO TO ere 
JTITOLSO 
216 JT=2 
KSTOR=S 
GO TO 213 








ICH=ICH+l! 
219 JT=1 
GO TO 195 
220 IF CSLIPY GO TO 215 
225 IF (ICRNER,EG.(#9)) GO TO 300 








260 RETURN 


280 TOL=ARS(ERROR) 

IF (TOL,LT..0001) GO TO 207 

IF (iKDY.GT.10) GO TO 281 

CALL PTSLP (PGUESS, ERROR, IRDY,VPTSLP(S) +0.) 





PRAR(J,JT)=PGUESS 
IF (PGUESS,.LT,PCRIT) GO TO 192 
PRAR(J,JT)=PCRIT 
IF €PERITF ONE. VPTSLPCS)) GO TO 192 
PGUESS=PCRIT 

_281 PRAR(J,JT)=PGUESS 





GO TO 20F | Kass Wao oa 
292 JT=1 
YBAR(J,JT)=YRAR(1,2) 
PRAK(J,JT)=PBAR(1,2) 
TSETTCIIT¢ JT) *#(PHRAR(S,STI/SPTO(J,57T)) *#GAMIOG(JT) 
“RHUBAR(J,JT)SPRAR(J,JT)/1S —s ot eae a 





UBAR OJ, IT)SSORT( CTT CII, JF) =TS)*GAMO(JTIS(1.+VQUBAR(J,JT)* 


IVQUBAR(JeJT))) 
SLOPE (2,1) =VQUBAR(J,JT) 
RETURN 


~ 300 IF CIGOLEG.1) GO TO 320 <<, 2a Seas ee 


IF (PRARCI,IT) GT. 6. 85*P(J-JT))) GO TO 320 
VOURAR(J,JTIEVQUBAP(I,JT)4.05 
60 TQ 1&0 

320 CALL ONENIM (JHOLD,JT,110,160,VGUESS,PCRIT) 
IF (IGO.NE.2) GO TO 189 


¥ ICRNERS<5 : 1 > 


RETURN 


1220 FORMAT (1X, 30HFAILURE OF RUUNDARY JTTERATION ¢//1X-37HUCH,UGUESS,? 


1BAk,PGUESS,VGUBAR,VGUESS ,46F15.6) 
4023 FORMAT (IX LOHOPSIC,OPSTIL, TOL UCH, aE 15.5) 


® #1031 


GO24 FORMAT (Ye, 1LeMSILID WALL e+, 1 7HPRAR,PGUESS ERROR, SFLG.7,5H 


Jts,1%, 


ae ee 


| ae 





4025 
4026 
4027 
4029 


14H Je,13) 

FORMAT (1X, 12NSLIPSTRE AMee, LOHYHAR, VUUBAR, Jo JT, 24 14.70213) 
FORMAT (1X, 1L2HSLIPSTREAM@=,21HSLOPE ,ERRUR »PHAK,PHGR,GFId.7) 
FURMAT (1%, 19HPRESSURE BUUNDARYers SFIG.7T»~SH JTeT Sed Je,T5) 
FORMAT (27HFLOW WENT SUBSONIC IN FNORY 3X, SHI FTG, SK,4HST =, 14) 
END 




















--— — a as _ ee er Ce 
. _—-— a - —— ~— ~ - _ -— eee = 

t 

| 

—-——-_ —_——__ -— —_— —_—— = — ——-— —— — 
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! 

*DECK COEFF 
é SURROUTINE COEFF (K) 
OEFF EVALUATES COEFFICIENTS FOR A GENERAL PAORAKULIC PDE 


aC 


_-— 


Cer 
Ce 
Gs 


ae 


’ 


JeJJ-JADJUS 
[=e Reade eee aee AHRTKRRARRH 
C*# TURBULENCE MODEL 
a a PV ETERTaE ie Li ea aie SE Sige eS aS FT eae < “sy Aa te ar ‘ Sc ge Me 7 
RUYERHO(J/ITIRUCIT ITI eR (CS, IT I eR IS, IT) 
SQRTESSORT (CAC JI,K)) 
REYTSRHO( J, JT) ZL I *SQRTE*SQRTES/S(ZMURUS) 
IF (MIX) GO TO 55 
C# IN THE JET MITING PROBLEM, “He YS ALWAYS UNITY a ND SRI ae ime ES a 


Ce 


Ce 


C( 


COMMUN /CTHETA/S THETA,II 
COMMON /SCTKESH/S PJ,E J+ SORTEJ, ESI + US, 24U, ZMJET 
COMMON SCINITZ NISCAV¢NIIMI (C2) -NIIMO02),STABIL (> Xp XLe ITPRINT, DXx2 


1. ,DX3,TS,OPSI(2) oes. 7 
COMMON /CBNURY/S RAO(2$,2)0P (23,2) UlOSe2 eV (2 dee eVOUleS,e) 
2 »PST(23-2)> R(2$,2) 6¥R89( 25,2), 2H0K44( 23,2) ,UBAK(23,2) 
3  pVQURAR (2342) -RBAR( 25,2) ,PRAR( 25,2) + PSI20 Lee) 24N( 23,2) 
4 
5 





+PROUND (242) 2 OX, PNIeJT» RC/OXQDSY,PSI1, YCALC,SLOPE(2,2) 
ervedney 
CUMMON /SCENDS/ JSTART,JEND = ae ee ae ee 
“COMMON /CPROLIZ 4(46,1),ALPHA(1,1),SETA(G6,1),+GAMM(U6,1), ra 
1 DELTA(46,1) 
COMMON /CJLBDY/ JLADY,JLBDY1,SYBDY 
LOGICAL MIX 
DATA MIX,2ICeGOrCrETAr ALFA /, TRUE ey 778 eo 4 3200174726594 D864 2/ 
od AT SIE i ceca O Qecat eee RNIN te Ae RE ee ea PN ae oe 
“ZL T= 1S THE MIXING LENGTH 
eREYT© IS THE REYNOULOS NUMBER QF TURBLLENCE 
@Z7MiIT= IS THE TURBULENT VISCOSITY 
"Use IS THE REFERENCE VELOCITY OF THE JET 
eeRJ= TS THE RADIUS OF THE JET EXIT —_ 
eZ2LT= 1S THEM MIXING LENGTH NON*DIMENSTONALIXED BY THE INITIAL REDI 
JET 
IF (IENTER,EQ.0) GO TO 500 





20 ZLT=ZMIXL (Xx) 
JADJUS=0 





IF (JT.EW.2) JADJUSENTI(T) — 
00 100 JJ=JSTART,JEND 





ZLAMDAZSREYT*REYUI 

IF (7L44D4,6T,1.25) GO TO 55 

IF (2LAMMA.GT,. 675) GO TO $4 

wHSZLOMDA 

GO 10 S6 
SO H=2LAMNA=(ZCAMDAS, 75) ae2 — a age ot oa nt eg 
S56 JMUHASZMUSHA ALFA 

ALFETH=ALFA®ETA®H 
5S ZMUTH=ZMUHARREYT 

OF1, ¢ALFETHAREYT 

OuGOSY=u. 

TF CYCILAP Ye ITILT. OVO) ,SND JUAN ,ISTART) GO TO 72 
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Ce &&xJS OF SUMMETRY PUINT 
Ce SYMMETRY FORCES DUUDSY TO Te ZERO UN AXIS 
} JP1sJel 
IF (CJPL.GTNJJCST)) JPLENIICIT) 

} JMisJel 

IF (JMI.LT.JLBDY) JMIZILRDY 
Ce AT OUTER EDGE UF JET, USE ONE@STOED DERIVATIVE (IT SHOUL D RE SMALL) 
~—  DPUGDSYSFUCIPL,JT)“UCIMI,IT)I/(PSICIPL JT) SPSLCIMI/JT)) 
| DUNDSY=OUGDSY*DUGOSY 
72 CONTINUE 


| ee CALCULATE OOEFFICIENTS OF THE PARAROLIC POE 
J BET ACIS (Kk) SZMUSD*RUY ~ 

GAMM (JJ eK) ERUY*ODUGDSY®ZMUTRE JI US RUS 
DELTACJII,K)=sZMUaDeC/(RHO( J, JT) *UCI,IT) *ZLT*2LT) 


100 CONTINUE 
RETURN 
C* CONSTANTS _ 
500 IENTER=1 
ZMJ=SZMN(1 71) 
REYOIS1.,/110, 
EJIsi./€J 
SQRTEJ=SGRT(EJ) 
Tys} wae eee 
“Ee  ZJMUZZMUINF/ (RHOINE *UJ*#RJ) SZNUINF/(US*®RI) | 
7MUINFS1,66 24 
2MUSZMUINF ARHOCL LIS CRI*US) 
we), 
2MUHA=ZMUSHMOLFA 
ALFETHSALFA®ETARH 
ALPHA(II,K)=1y 
} GU TO 20 
ENO 
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*DECK CORNER 
; SUBROUTINE COSNER(X+Y,PCONTs XL, J+ Pe P HOUND) 
*CORNER LOOKS FOR CORNERS IN BOUNDARIES --CURNER 
CORMON SCCRNERZ NPTSM1,R,ICRNER, XCRNER 
COMMON /CSTORA/ OX1,SGN, 11s TEND (202) 
COMMUN /CKNDRY/ CKOUM(652),JT/CFDUMY(10) 
CUMMON /CSHK/ TANSL + DSHUCK,PSISHK,DELP,DELVQUr,JLOW/ JSHOCK 
1,xSHOCK (2), YSHUCK 
COMMON /CRITS/ BITS, BLANK 
CUMMUN/QSHKPT/SHKPRT 
DIMENSION *(23),Y023),xS(2),YS(2) -P (23) 
LOGICAL PCONT,OSHOCK, SHKPRT 


C#® ICRNE@={] IMPLIES EXPANSION FAN TO SOLIO WALL (OR PRESSURE RNDKY) 
(Ce ICRMER=0 IMPLIES LOMK FO A CORNER 

C* ICRNER=<1 IMPLIES START SHOCK TO A SOLID WALL 

(CC® ICRNER=*2 IMPLIES -SEARCH* HAS DETECTED A COALFSCING SHOCK. 


IES SE eR Se 
IF (XL.EQ.BITS) XkK=BITS 
NPT=NPTSM1 41 





IF (PCONT) GO TO 169 : : a ; 
170 DO 171 T=11,NPTSM1 
IF (x(1),EO.x¢I+i1)) GO TO 172 
171 CONTINUE ‘ 
IF (SHKPRT) WRITE (6,1) X(T) | 
JEND(K,JT)=1 
169 CONTINUE : ; = | 
IF (XkK,NE.BITS) GO TO 173 : | 
‘ 
“ce TF xt IS NOT INPUT, SET xL EQUAL TO THE SHURTER OF THE UPPER AN | 
Cs LOWER BOUNDARIES, 





IF (xXL,EQ.BITS) XL=X(NPT) 
IF (XL.GTeXCNPT)) XLEX( NPT) 
1735 XCRNER=KL as 
~ FCRNERS2~ . =n : a aI Re TRCN RE ae a 
GO To 175 - : : | 
C* A DOUKLE PUINT HAS REEN FOUND 
172 XS(1)=,999exK(1) 
XSC2)=1,001*K(1) 
EF €NCT) NE sO.) CO TO 1725 
“XSELYS=500F ~~ eee Oe eX 
xS(1)=",01 
xSCe)=ee, 001 
XS(2°2.01 
1725 CONTINUE 
CALL LSPFIT (Xe YsNPT,XS,YS,2,0) _ 
Bie sts am ix a lig Pe Ee 
Ovbsy(1)-¥S(1) 
Dxdsx(ly-xS(t) 








| 
| 
| 
| 
| 
| 





PHIL=0YA/0XKA { 

| DYazyS(2)-Y(1) ] 
DxAzxS(2)"x(1) { 

[ DANGEDYA/OX ASP HTY si —— | 
4 
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IF (,NOT,SHKPRT) GO TO 1722 
; WRITE (ort) xSC1),xS(2),YS01) 
wRITE (6,1) DONG,PHI1,YS(2) 
1722 CUNTINUE 
IF ((CeMANG).LT..01) GO TO 174 


Ce : : _SHARP CORNER**SHOCK © 


1723 xCRNER=x(T) 
IF (SHKPRT) KRITE (6,1) XCRNER 
IF (xXSHOCK(JT).EQ.(1.E8)) XSHOCK(JT)=XCRNER 
OSHUCK=, TRUE. 
ICRNER=-] 
60 tO 75 


174 IF (NANG,LT,.01) GO TO 170 


C* CORNER wAS NOT SUFFICIENTLY SHARP TO WARRANT A DISCONTINUITY 
“C# SHARP CORNER|*EXPANSION ae as eee a alee 
IF (SHKPRT) WRITE (6,1) XCRNER 
ICRNER= 1 


XCRNEREX(1) 
175 CONTINUE 
IF (.NOT,PCONT) GO TO 181 
176 PUSrederrtusy 5.) 
IF (PROUND.GT.PJ) GO TO 190 
181 RETURN 
Cr 
Ce FLOW STARTS wiTH A SHOCK TO A CONSTANT PRESSURE BOUNDARY 
190 GO TO (201,200,201,200),K 
200 OSKOCK=.TRUE, a air 
G0 TO 202 
201 OSrOCK=,FALSE. 
202 ICKNER=-3 
RETURN 
1 FUKMAT (1x, 3F15.6) 
END “ a 


 eDECK CNSERV 
% SUBROUTINE CNSERV 
*CNSERV 
; RETURN 
END 


fant nn = ee 


b 
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T eDECK OxaMy 


~ SUBROUTINE DXOME(P,U,RHO,VGQU,R,XQSYIM) 


*DXxOM1 ~~ DxXOMLe2 CALCUSLTES Dx/(MxeeSef) NEAR MKE1,0 


C* 


Git 
Ce 


Cr 


Cr 


ee 


caehet) Aomme meommnes meds 


__ IF (7MKeM1,.GT.ZLIMCK) GO TO 100 


COMMON /CGAM/ GAMMA(2),GAM1(2)eG4¥1(2)-GAM2 (2) »GAMIGG (2) 

COMMON /CRNORYZ CKOUM(4G60),xKDUMs(1R6),CDO“(o)-JT»,RO-DXO0SY,ND(8) 
COMMON /CINITZS NISC2A)¢NIIMI C2) eNIIMO(C 2)» STAKIL Xe XL IPRINTsDK2 

1 2DX S35 TSR SP Ges 

COMMUN QSHKPT/SHKPRT 

LOGICAL SHKPRT 


ZLIMCK=,05 
RHOUUTRHO aU aU 
VQUPL=EVQU*VOUF!, 


ENSURE ZXIT4L COMPONENTS OF MN [IS SUPERSONIC 
ZMXOMISPHIUUS(GAMMACJT) &P)o1, 
XOSYZMSDXUDSY/Z2Mx2M1 


ENDURE PROPER RERKARTUR O NEAR SINGULARITY WHERE 
XeCOMPONENT OF MACH NUMRER APPROACHES UNITY 
IF (ZMX2M1.LT.0.) ZMXOMI=0, 


ENFORCE LIMIT VALUE MORE RAPODLY | 
FRACTHZMKXOMI/SZLIMCK ‘ 
FRACT=FRACT#®FRACTeFERACT 


PATCH SOLUTION SMOOTHLY TO ANALYTIC TIMIT AT SINGULARITY 
RLIMIT==.S*#VGU*FSTARIL/ (RHOUI AR *VOUPT) 
XQSY2MZXKOSYZM*FERACT#RLIMIT*(1,*FRACT) 

IF (SHKPRT) WRITE(6,1) FRACT,XUSYZM,ZMXOM] /RLIMIT 

1 FORMAT (1x,SHOXOM1,SF15.%) 





100 RETURN 


END 
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SUPERSONIC JET EXHAUST NOISE INVESTIGATION. VOLUME III. COMPUTE=-ETC(U) 
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'#DECK ENTROP 
i SUBROUTINE ENTRUPC( ISTEP, JLOC) 
*ENTROP CALCULATES PARAMETERS wHEN ENTROPY VARIES ALONG STREAMLINE 
, COMMON /CRITS/ KITS, BLANK 
i COMMON /CENDRYS RHOC2362),P 02852) 002502) 0 V (2502) -VIU( 23,2) \ 
2 »PSI(25,2)5 R625,2),YHAR( 25,2), RN0BAK( 23,2) ,UKAR (23,2) | 
3 -VAQUBAR( 2342) -RBAR (28,2) -PRAR(23,2),PS12( 142) 6 2¥N( 23,2) 
4 sPBUUND (2,2) ,0X,RNIZIT»RCeOXGOSY+PSIL,YCALC+SLUPE(2r2) | 


sh es aati 


5S ,TISAVE (1,2) 


ste atta noes pail 


r COMMON /CENTRO/ PTOT(20,46)-,XxPT(20),NPT,0UMUS (45) 

L COMMON /CULHDOY/S JLHNY,JLADY1,SYRDY { 
l COMMON /CGAM/ GANMA(2),GAM1 (2),GAM1(2),GAM2(2) ,GAMIQG(2) | 
| COMMON ZCINITS NJICADeNIIMI C2) NIIM2(2) ,STABIL A Xe XLeTPRINT(DX2 | 


1 ,0x3,TS,OPSI(2) 
COMMUN /CINPUT/ PTINP(40,2),DUMINP (648) 
COMMON /CLOGIC/ PCONT(2,2),0U4L,0000(5),SOLID( 2,2) 
COMMON /CPTSLP/ xJUMP 
COMMON /CNTROP/ RHS2~ ,RHS,RHS1 
___ GUMMON ZEPRENTS WIPRVQ2) 0 ple as ale = Bed 
COMMON /COLOPT7 OLDPT(23,2),OLDPTS(2)  — pads oS 
COMMON /CSHKPT/ SHKPT(23,-2) 
LOGIC4L DUAL,PCONT,SOLIO 
DIMENSTON VPTSLP(4) 
DATA PYOLD,IFIRST/1.E+15+0/ 
DATS DXPTL/0.0/ 


J=JUOC 


ae ee Cee 


C* TOTLA PREDSURE **PTOT#* HAS BEEE INPUT AT &&NxCe® X=STATIONS AND ON 

Ce *#NPSTPT#*® STREAMLINES 
t IF (IFIRST.GT.0) GO TO 5 
__IF CIFIRST.LT.0) GO TO 6 


_C* FIRST TIME THROUGH COUNT NXC 


ce ete eee Caren ee 








—— 


DO 2 Jzl,2t 

IF( J.EQ.21) GO TO 2 

IF( XPT(JS).EG.81TS ) GO TO 3_ 
“2 CONTINUE ~—OCO”S~S e 
3 NXCEJeq 

If (NXC,LT.2) GO TO 6 


| 
| 
i 
' 
" 


: 
| 
| 
| 
| 
| 


r 5 IFIRST=1_ 
C# eJe IS THE STREAMLINE NUMBER, IT ASSUMES THERE ARE THE SAME NUMBER 

“Ce S.be"S INTHE TOTAL PRESSURE TAALE™&S IN THE SSFD CACCULATION- wae 
Ce eNxCe IS TRE NUMBER (iF POINTS PER STREGMLINE IN THE TOTAL PRESSURE T 
Ce (ASSUMED THE CAME FOR ALL STREAMLIMES) : 
90 JADJUS=0 

IF (JTLEG.2) JADJUSENJTI(1) 

J=J¢JaoJuS 


| 
| 
| 


SS ee een 





| 
| 


! 
} 
| 
SS a ny Saas See! See ee 


~ GF SE CLEVE LLL SCLLLeeee UU UCC a 
Ce ISTEP EQUALS TAO1**-USE THE BAR QUANTITIES 
t10 U2=UBAR( I, ST) *Ubak(S,JIT) 
RR=oKHORAR(J,JT) 
PS=PuAR(J,JT) 


GE TO 20 . 
$20 U2suUCJ, STI eUCJ,IT) Si ea ia a a liga id eae 


r 7 T op 
| 


| 
| | 
yy 








! 
{C+ § 


20 


ce |} 
130 


135 


TEP 1 USE UNBARRED QUANTITIES 
RHEKHO(JS,IT) ; ral _- 
PSP(J,JT) 


PTOLDZOLOPT (Je JT) 
CONTINUE 
PT=PTINP(J,JT)=SHKPT(J,JT) 
XBinsi-K.5 = ° +#«° °° °°#°©8©8©| CCC 
CALL LSPFIT (xXPT,PTOT(C1, JJ) +NXC>XHAR,DELPT +101) 
RHS2=GAM] (JT) *OELPT/(GAMMA( JT) #PT) 
RHS{=DELPTROK#PS/PT 
RHS=RHS1#(1,¢GAM1 (JT) ®U2&RH/ (GAMMA( JT) &PS)) 
STF €xc6T REPROD) Ae ; 
YWRITE (6,100) PT,PTOLD,DELPT,RHS1,RHS,RHS2 
RETURN 


STeP=3, FET UP TOTAL PRESSURES AT NEW X*LOCATION 
NJENJJCJT) 

00 135 J=JLBDY,/NJ 
JJ=J+JAOJUS 
OLDPT(J-JTI=SPTINP(J,JT) 
CALL LSPFIT (XPT,PTOTC 1, JI) »NXCeXePTINP (Je JT) 6100) 
PTINPE(IJe,JTISEPTINP( J, JTI*SHKPT(J,JT) 


139 K=2 


cs. € 


ass 


_ 150 
tr fk 


IF (,NOT.PCONT(K,JT)) RETURN _ 
~ EXPON=1./GAM1IQG(JT) 4 
HFCK TO MAKE SURE THAT MACH NUMBER AT QOQUTER BOUNDARY IS SUPERSONIC 
ZMCPRIT=1,1 
PTCRITSPROUND(K, JT) #(1.+GAM1 (JT) *#.S#ZMCRIT*ZMCRIT) 82 EXPON 

J=NJ 

IF (PTINP(J/JT).GT.PTCRIT) GO TO 150 
JeJel apie 
IF (J.GT.0) GO TO 140 
IF (JT.€0.2) GO TO 190 
WRITE (6-101) 

STOP 

IF (J.EQ,NJ) RETURN | 
NTIRE MASS FLUW REMAINS 








C* MASS FLOW HAS CHANGED, FIND NEW PSIRDY 


Cx DO CkKOSS STREAM INTERPOLATION TO FIND WHERE FLOW IS STILL SUFFICIENT 


c# § 
160 


165 


_ 


t 160 SYFRCTs,25 


_PSIGEPSI(Je JT) 


UPEKSONIC, SUT KE MUST ITERATE BECAUSE PTINP MAY BE NON=MONOTONII 
KOUNT=0 





XJUMP=PSI(J+1,JT)=PSI(J,JT) ~ 
CALL LSPFIT CRSICI,JITI-PTINPCI,JT)NJ-PSIGePICALC 1,0) 
DELPT=(PTCALC*PTCRIT)/PICRII 

IFCX.GT.KIPRT) wWRITE(CO,105) PTCRIT,DELPT,PTCALC,KJUMP, XIPRT,X 
ERRUR=AKRS(DELPT) 

IF (KOUNT.GT.190) GO TO 170 

IF CERROR.LT..001) GO TO 180 
CALL PTSLP (PSIG, DELPT+KOUNT,+ VPTSLP, 0.) 

GO TO 165 

WRITE (6,103) 

PSIG=SPSI (Je JT) +. O1#(PSI(Jt1 JT) “PSI(J,JT)) 
MIPRT(1)=x 
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CS] f USAT AT r rar - 
BES AVAILADLE Cur ft 


IF (J,GT.1) SYFRCISSYFRCTS(PSI(JeJTI@PSI(JeteJT)) 
~ SYCHEK=SYFRC14#PS1(J,JT) av ars 


CHANGE =(PSIGOPSI (CJ, JTIIZCPSI (Sele JTI-PSI (CS, JT)) 
OYSURN=Y(C Jet STI ev sete ITI V OU, TTI eV (J, JT) 
OYSURD=(1. CHANGE) *DYSGRD 
YCALCLESGRT CYC JL, ITI AVC JtteJTI“DVYSQRO) 
DYLOSS2Y(J+leJT)*YCALCL es 
IF (CxLT,xITPRT(2)) GO TO 181 : 
WRITE Coel104) ASSCITI,STOPSIG,X,OX,PSIC I, JT) ePSI( Jel, JT) 
WRITE (6-105) CHANGE +DYSQRODYLOSS-Y( Jol, JTI»VideJTI,YCALCLE 
181 CONTINUE 


a ee a a = ET NS, 


fo be ERSTG ER CAVENEMY Uskel. ae ee ara. >) ss 
PTINP(J¢1,JTI=°ICRIT 
PSI (Jet, JTI=PSIG 
YCS+t, JTISYCALCL 
NJJMI CJT) Sd 
NJUCJTISJe1 
NJJM2(JT) =J=1 
RETURN 
190 OUAL=.FALSE, 
WRITE (6,102) 
JT=s1 
_ PCONT(K,JT)=. TRUE. 
SOLIO(K,+JT)=.FALSE. 
GO 19 130 


r 
i 
| 
\ 
j 
' 
{ 
{ 
' 
\ 
| 
| 
eS eT eee Seven eee | 


_C* TOTOL PRESSURE ALONF STREAMLINE WAS NOT INPUT*=ASSUME IU IS CONSTANT _ 


6 IFIRST=<1 
~ €XPOF SSE, 
RHS1=0. 
RHS=0, 
RETURN 
100 FORMAT (6F16.6,60HENTROP) 
101 FORMAT (1x,25HENTIRE FLOW IS SUBSONIC) 
102 FORMAT (1x,4OHUNLY THE INNER STREDM REMATNS SUPERSONIC) — 
103 FORMAT (1x,SOHITTEXATION FOR CRITIACL MACH NUMBER FATLEDSSENTROPY) 
104 FORMAT (1X,4S5HA PORTION OF THE OUTER FLOW HAS GONE SURSUNIC, 7» 28HN 
lew QUTER KOUNDARY IS AT NJS,L5,3HJT=,15,RHPSIEDY =/F12.6/5H Xe 
2F 12.676 Oxe, SF 12,6) Fares 
105 FORMAT (1%,6F12.6) 
Say MO eae : 





! 
Rae ete oe See Cetra: OEE Ce ee ee a Ces 


Smee Ne 
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“SUBROUTINE FRONT CPL,UL, RHUL, VOUL) 
FRONT CALCULATES PROPERTIES IN FRONT OF A SHOCK 

COMMON /CCHARLZ YCHBRL } 
COMMON /CBNDRYZS RHC 2322) 6P (23,2) UC 2502) 6 V (25462) VOU (232) 


| apecK FRONT aes 


’ 


2 -PSI(23r2)> K(23,2)eYRAR( 2542) ,RHOKAR (25,2) ,UBSR (23,2) 
3p VOUBAR (2342), RBAR( 2342) PRAR (23,2) ,PST2( 162) 22MN( 25,2) y Aer. 
r 4 pPHUUND (242) ¢0X/RNJ,ST¢RCeOXONDSYPSILFYCALC,SLOPE(2,2) 
S -TT(1,2) 


COMMON /CSHOCK/ PS(5,2),US(5.2) ¢RHOS (5,2) /V9US(5,2) -P2(5,2) 
1,U2(5¢2),RH02(542) ,VQU2 (S62) V¥2(Se 2) -R2A(5 02) 
i COMMON /CSHK/ TANS1,0SHOCK,PSHOCK,DELP,DELVOU, JLOW, JSHOCK 
} Ye X SHOCK (2) - YSHOUCK d 
Fo "—“COMMON /CFRUNT/S JSHOCK,YSHV,PSISHK,FRACIN 
COMMON /CGAM/ GAMNA(2),GAM1(2),GAM1(2),GAM2(2) -GAMIQG(2) 
’ COMMON /CJLKBDOYZ JLRDY,JLBDYIL,SYBDY 
} COMMON /CINIT/S NIJC2),NIIMIC2) NJJIM2(2) -DUMMY(9) 
COMMON SOXPRS XX(3),xxXX 
___CUMMUN /CPTSLP/Z xJUMP : 
“COMMON /CINPUT/ PT(40,2)+DUMINP(64A) 
COMMON /CMOC/ ITER, PISAVE,UISAVE,RHOISA, VQUISA,YISAVE,JSET 
COMMON /CULDPTY OLDPT(23-2),0L0PTS(2) : 
_ DIMENSION TANA(2),VQUAV(2) -RHOUU (2), GPAV( 2) ,UAV(2),VPTSLP(12) 
DIMENSION PCH(2),UCH(2),RHOCH(2),VOQUCH(2),YCH(2) 
DIMENSION PC(3),UC(5),RHOC(3),VQUC(3),-YC(3)-PTC(3) 
~~ DIMENSION PSIC(3) — i ime ne ea ae 
DIMENSION €(2),002),E(2)-0L (2) 
COMMON /CSHENT/ RHSIHL(4)-RHS2HL(4),SYHOLD(4)-YENTHL (4), SSTI,JIJS 
1 ,YENCH(2),RHSIEN( 2) »RHS2EN(2) 
COMMON/QSHKPT/SAKPRTI : 
___ LOGICAL DSHOCK,SHKPRT 


mn Vewwnny ceeeree | 


. 


— 


7 or = 


ee nr ems 


— ncciaie ds east ore 4 


a a RRS =~ 


A IPSISH20 _—_ lag” “a ; 3 = ENE ek Bee 5 
; ISET=0 , = aa z : 
IOUTERSO  —__ ; * = — rar ae, 4 
10UT=0 , 
IF (ITER,NE.99) GO TO 10 } 
URE UREN COE iE ye tn if en te ea Se en ee eee 
YSHK=Y1SAVE*(VOU1+4VQUPRE)*®.5*DX 
YCH( 1) =YCH(1) *YSHK©YSHV 
YCH(2)=YCH(2) *¥YSHK*YSHV 
GO TO 45 ; fom 
10 YSRKSYSHV 
~~ FOL S),£<4 
EXPON=1,/GAMIAG(JT) 
TSOTIC22,./(GAMMA(JT) +1.) = - peice ci 
IF (ISHONCK,GT.0) GO TO 45 





cari 


.C* INITIALISE PRUPERTIES ON CHARACTERISTICS 
YCH())=YSHK 
_YCH(2)=YSHK 


ee ee a ee 


NPs} | 
f* SET UP INTERPOLATION VECTOR FROM LAST X-=STEP 


IF (DSHOCK) GO TH 20 ~--=-- : : 


1041 





| L244 

we SIGNSL. SS 
JS=JSSHOCK el 
JRSJSHOCK¢2 
IF (JR.LE.NJJ(CJT)) GO TO 30 
JRENIS CIT) 

OO RIED ICE. Pte 
TF (CJS.LE.NJJ(JT)) GO TO 30 
JSENJI(JT) 

NPs 
GO TO 30 
20 C=3 
[____ JSF USHOCK=1 
JREJISHNCKe2 
S1GNze1, 
IF (JR,GE.JLBDY) GO TO 30 


_--—--— 


JR=EILBOY 5 a a 
NPs2 
Ices NS Gg REO YG Oe OES Os eae oe eS re oe 
JS=JLBOY 
NP=] 


30 CONTINUE 
YC(1)=YSHOCK 
YC(2)2Y(JS,JT) 
a2 _YC(3)=Y(JR,JT) Pinte ee, OD a or TR RT OE ee 
C* CHECK TO RE DURE THAT eaY"Sea APRE PROPERLY ORDERED 
DYCRKEK=(YC(2)-YC(1))*SIGN CN a it 5. Re wane 
IF (OYCHEK.GT.0O.) GO TO 31 
YC(COVEYCC1) ¢SIGN#, 001 eYCHARL 
31 DYCHEK=(YC(NP)©YSHK) &SIGN 
£* MAKE SURE *aYSHKes JS INDIDE s*vCes TABLE _ 
IF (OYCKEK,GT.O.) GO TO 32 
YSHR=YC(NP) at ee 
32 PC(1)=PS(L,JT) 
UC(1)=US(L,JT) is 
VOQUC(1)=VQUS(L>JT) 
__PSICCI}SPSHOCK 
PSIC(2)=PS1(US,JT) 
PSIC(3)=PSICIR, JT) 
PC(2)sP(JS,JT) 
PC(3)=P(JR,JT) 
UC(2)sU(JS,JT) 
UC(3) SUCIR, JT) 


i ae VOORCe FeVGl CURCU Lie 1 en a we ha i ae a ce 


VOUC(C3)=VQUCJR,JT) 


: IF (xx¥xX,GT,DUMMY(2)) GO TO 1111 
| IF (.NOT,SRRKPRT) GO TO 32) 
fea CALL TABPRT (2HPS,PS,50,10) 


Ae LOPE GEUEROGUP TONNE = = ee eT 


| 321 CONTINUE 
' 1 FORMAT (1%,4HL,4J37,218-2F 16.6,18) 
PC(1)=PS(4,2) 
UC(1)=US(4,2) 
VQUC =vQUS(4,2) 
1141 CONTINUE mesy 
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| 
J 











CALL LFIT (YC, PC,NP,YSHK,P{,1,0) 1 
COLL LFIT C¥E UC HOLYSKK Uietso)° = °° °° « °° XRG TS eae pe 
CALL LFIT CYC, VAUC,NP,YSHK,VQU1-e1,0) 

TSETTC1 ST) -GAMIAG( IT) *ULAULe(1 *#VOUL*VOUL )*,5 

RHOLSPL/TS 


__ PIC(1)=0L0PTS Lae Mey ote Ie : ‘ | 
PIC(A2)SULOPT(JS,JT) ; 
PTC (3) S0LOPT(JR, JT) 


IF (xXxXK.LT.OUMMY (2), ANOJSHKPRT) CALL TABPRIC(3HPC -PC,18,9) 


Bn atin = 


45 00 150 JINT=te2 


~ “TFRONT=0 


YH 


Ce USE LINEAR INTERPOUGATIOM@"NOT QUADRATIC 
50 CALL LFIT (Y¥Ce PC»NP ,YCHOSINT), PCHCSINT) 41-0) 
CALL LFIT CYCe UCeNP ,YCH(JINT) > UCHCJINT), 1-0) 
60 CALL LFEIT (YC. VQuUC,NP + YOHOCJINT) - VQUCH(JINT) 41-0) rae 
TSETT (Le JT) @GAMIOQG( JT) ®UCH( SINT) ®UCHCJINT) #01 ,¢VOUCH( SINT) & 
IVQUCH(JINT))*#.5 
RHUCH(JINT)SPCH(JINT)/TS 
Ce CALCULATE AVERAKE PROPERTIES ALONG EACH OF TKO CHARACTERISTICS 
70 GPAVOJINT)EGAMMA( JT) ®(PCH( SINT) +P1)*#.5 
UVAV(JINT)S(UCH(JINT) 4U1)*,5 
 UAV2SUAV(JINT) *UAV(JINT) 


— 


ee 4 


Ce #«#eCee TS THE SPEED OF SOUND 
RHOAV=E(RHOCH(JINT) +¢RHOL)*,5S 
VOQULV(JINTIS(VQUCH(JINT) #VQU1)*.5 
VOUPP TEL, ¢VQUAV(JINT) #VQUAV(JINT) 
~JMAVESRHOAVRUAV2AVQU2PI/GPAV(JINT) 
TANO(JINT)=1./7SURT(ZMAV2W1,) 
RHOUUCJINT) S=RHOAVAUAV2RTANA(JINT) 
| SG=3,°2,*eFLOAT(JINT) 
DYCHENKe(VOQUAV( SINT) SGA TANACJINT) )/ (1, °SG*VQUAV(SINT) *TANACJINT)) 
YCHC=YSHK*DYCH | 
ERRORSGANGCVGCHOVIRVFSNGHGF © —  —° 6 7 
IF CERROR.GLT.TOL) GO TO 145 
IF (CIFRONT.GT.10) GO TO 143 
XJUMP=3,8DX 
CALL PTSLP CYCH(JINT),YCHC,IFRONT,VPTSLP(1) 016) 
Ce MBKE SURE UOU DONT EXTRAPOLATE IN #YCHe TABLE 
PO OYCHEKECYCHOJINT)*¥CC1))*eSIGN OS™ 
IF (DYCHEK.GT.O.) GO TO 60 
YCR(JINT)=YC(1) 
BO DYCHFKS(YC(NP)=YCH(JINT))*SIGN 
IF (DYCHEK.GI.0.) GU TN 45 
LCV CHO JINT) SYCONP) 
65 ITF CYCH(JINT).EQ.VPTSLP) GO TO 1499 
| GO TO 50 
I Ce SET YCH TOEBNTICALLY EQUAL TO OYCH VALUE TO KEEP OUT OF TROUBLE IN B 
145 YCRKCJINT)=YCHC 
GO TO 143 


. 
' 
} j 
| 
t 
a a Ns) See Tae ete S 


1499 IF (SHKPRT) URITE(6,1498) YCH,JINT Sa SE = 
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_ 1U9B FORMAT (1X,2F14.7/18,AMYCH,JINT) i 


_o* 


CALCULATE VISCOUS EFFECTE 
143 DLC JINTI=SURTCOX*OX+ CYSHK=YCHCJINT) ) # #2) 


aS 


-+— 


e 
' 
Bcc 


140 CONTINUE 


1 


YENCH(1)=YCH(JINT) 

VENGHEDSENSHG 68 he 

CALL LFIT CYENTHL,RHSIHL(JSTI),- JIS, YENCH,RHSIEN, C70) 

CALL LFIT CYENTHL,RASAHL(JSTJ) » IIIs VENCH/ RHS2EN, 2,0) a 

RHS2=(RHS2EN(1) *RHSPEN(2))*,5S 

RHSI=S(RHSIEN(C I) *#RHSIEN(2))*,5 

IF (xx0€$).GT.DUMMY(2)) GO TO 144 

JER CSHRPRUD SWMEDE CO miGeg) RUSK RN Ga) = 2 oe ee 

CCJINT)=SGRTI(GPAV(JINT)/RHOAV) : 

EC SINT SCOCJINT) *# OC TANACJINT) #SGeVOUAV(JINT)IS(UAV(JINT)® 
VQU2P1 #DxX)*OL(JINT) &RHSI tine et Aes 

OCJINT) =RHOAVEUAV(JINT) ®TANA( SINT) &RHSAROL(JINT) *#CCJINT) | 


5 32 |, ee ee 


— 


Ce 


a 0 
Cs 


Ce 


FORCE AXISYMMETRIC TERM TO VANISH IF =YSHK==0,= 


«AXISYMMETRIC 
BYPASS SINGULARITY AT AXIS OF SYMMETRY oe ie eae ee 


ENSURE eYHHKe IS POSIVIVE 


Ss 


Bt=eECIFEOCR, et ee : tas WALA =e € Gao es. | 
B2=E(2)+0(2) 


1F (RCWEQ.04) GO TO 100 se ey a ‘ | 


ahaa ea A Rm ae Sioa DENA Be SA Sen PS ers ones et eee On SET ENN 4 


IF (YSHK,G1T.0.) GO TN 160 





YSHK=0, ae fa eee or ee eae | 
IPSISH=1 = 
PSESHKSrONChsuTrSa0UGls 20, spa bee a eae eS ae 


Ce 
Ce 


160 VORAVGSVQUAV( 2)/(YSHK+YCH(2)) #2, 


IF (YCH(2).LE.0.) GO TO 100 © 
GO TO 165 








IF (YSHK.GT.(2.*YCH(2))) VORAVGSVQUI/YSHK — 


165 IF CYCH(2}.GT.(2,*YSHK)) VORAVGEVOUCH(2)/YCH(2) 


“100 CONTINUE 


“Bes C(2) eRHOUUC2) UAV (2) #VORAVGHOL C2) 
VORAVGSVQUAV( L)/ACYSHK+YCH(1)) #2, 

IF (CYCH(1).GT.(2,*YSHK)) VORAVG=VGUCH(1)7YCH(1) 
VQU1=2,*V9UAV( 1)*°VQUCH(1) 

IF CYSHK,GT,(2.*YCH(1)))} VGRAVGSVQUI/YSHK 
BLISC (1) #RHOUUCLIZUAV(L)*VGRAVG*OL (1) 

~~ BLSBI4E (1) 4001) — 

B2zF2+E (2) 4002) 

IF (YSHK,GT.,.06) GO TO 100 

AISBI®YSHK*12.5 

B2=B2*YSHK4AI2,5 








CALCULATE PREPERTIES AT SHOCK RY CHARACTERISTICS 3 
FOR #CHe VOFIAVLES, SUBSCRIPT 1 REFFRS TO THETA+MU CHARACTERISTIC 


~ PORMQUUTT) eRROUUC 2) 


SUBSCRIPT 2 REFERS TO THETA=MU CHARACTERISTIC 


VQUB=(RHOUU (1) *VQUCH(1) *RHOUUC2) ®VOUCH( 2) eB 1 eRetPCH(LI=PCH(2))7 _ 


aceasta Rit. J 
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+ 


Ls 


aa: 


Ca 
Ce 


\ 


[é 


IF (xxx, T.DUMMY(2),AND,SHKPRT) WRITE(6,1001) P1,P8,VQU1,VQUAR 
ERRORZAKS(VQUBSVGUL) bia nate i > 
XJUMP==,020 

1F CE RROR.LT.ZTOL) GO TO 180 

COLL PTSLP (VQU1,VOUB8,/ TOUT, VPTSLEC 5)o1.) 

IF (TOUT,LT.10) GO TO 4S 


180 TouT=0 


PR=(RHUUU(2) #PCH(L) +¢RHOUUCL) ®PCH( 2)  #RHOUU( 2) ARHGUUC TL) ®CVQUCHO 1)” 
Y=VQUCH( 2) )eRHUUU CL) #42 eRHOUU(2])) RL) Z CR HOUUCL) #RAOUUC 2?) ) 
IF (XXX,LT.DUMMY(2) OND, SHKPRT) WRITE(O,1001) Pl, PR, VOQUL»+VQUB,UL, 
1 RHOL,YSHK 
ERROR=AKS(P8=P1) 
_YPRES(YCH(1)#YCH(2))*.5_ Eos 
IF (ERROR.LT.TOL) GO TO 300 
IF (IOQUTER.GT.11) GN TO 200 
XJUMP=.05 
CALL PTSLP (P1»pPB,TOUTER+ VPTSLP(9) 1.) 


ASSUME STREAMLINE AT PREVIOUS X*STATION IS JALF WAY BETWEEN THE 2 CH ; 
CALL LFIT CYC, PTC, NP, YPRE,/PTPRE + 1,0) j ae 
Il=1 
TSQTTE(PL/PTPRE) ®*GAMLQG (JT) 





CHECK TO BE SURE MACH NUMRER IS SUPERSONIC 
IF (TSATT.LT.ISATIC) GO TO 1A 
IF (,NOT,SHKPRT) GO TO 1801 
CALL TAHPRT (2HPC,PC,18,6) 
WRITE (6,182) YPRE,PTPRE,P1,TSOTT,TSOTTC,NP 
801 CONTINUE 

TSOQTT=STSQTIC# 99999 
2B2 FORMAT (1X,39HYPRE,PTPRE,P1,TSQTT,»5F15,6,16) 
LOC COMTI NU CRS sate iL! a ot ins Soy ae mse eee oe 

TS=ETTCII,JT)*TSarT 

RHOLSPL/TS 

ULSSGRTC CTT CII, JT) =TS) *GAM2(ST)/(1.¢VOUL*®VGUL)) 

GO TO 45 





200 CONTINUE ie eS eae Ss 
IF (SHKPRT) WRITE(6,1000) P1,U1,RHO1,VQUI 
300 10UT=0 
IF CITER,EQ.99) GO TO 400 
IF CTPSISH.EU.1) KETURN 
$30 COLL LFIT CYC+VOUC)NP,YPRE,VQUPRE,1,0) 
TRACE SHOCK STREAMLINE BAXK TO PREVIOUS KeSTATION 4NO INTERPOLATE TR 
GET =PST= VALUE AT SHOCK AT CURRENT X=STATION 
YPRECZYSHVe(VGUL*+VQUPRE D&S #OXK 
ERRURZABRS(YPREC#YPRE) 
IF CERROR.LT.20005) GO TO 540 
IF (TUUT.GT.10) GU TO 339 
xJUMP2©,020 
CALL PTSLP (CYPRE,YPREC, IOUT, VPTSLP(5)o1.) 
GO TO $30 
3$9 JF (SHKPRT) wRITE(6,1902) YPREsYPREC/ ERROR, VOU» VQUPRE 
340 COLL LFIT CYCAPSIC, NP, YPRE,PSISHK + 1,0) 
RETURN ¥ 
GIVEN PST VolUE, FIND CORRECT ¥ 


— 


Sincinsmniah nace cenilie 


a 











a 
| 
F 400 YNEWSYPRES(VQUI+VQUPRE)*.S*Dx eee . ] 
[7 ERRORS YNEW!YSHK ; ey ee. oa rece et ae : 
| IF (ERPROR,LT..001) RETURN 
| IF (CISET.GT.10) RETURN 
_ XJUMP=-,020 mat é i 
| YSHOSYSHK 
CAUCE PVSUP CYSHRYNEWSTSETsVPISLOECS)etey 
“"YCH(1)SYCK(1) ¢YSHK-YSHO 
YCH(2)=YCH(2)+YSHK*YSHO 
“~~ TOUTERS0 
GO 10 45 
1000 FORMAT (1X,1SHP},U1,RHOL,VGU1,4F 16,6) 
1001 FORMAT (1X,23HP3,PA,VOUL,-VQOUB,UL + KHOL,SH YSHK,7F14,7) 


1002 FORMAT (1%,S5F14.7, 3BHYPRE, YPREC, ERROR, VOUL,VQUPRE,SSFRONT#*) 
| 1426 FORMAT (10X,13HFRONTe*ENTROP, 2F 16,6) 
ENO 


| 
| 
{ 








Gea laa ct a einai Roses edness 

= a orks iri aiaaa —- = ~ 5] 

| 

eer ‘ | 

a = aon 

Se a a 
eS 

—— -~ - — - - - 4 

‘ 

Pe a eM e <Roalce icicle cdilgaersicicaceanciimnenil 
! 

| 

| 

| 
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eee 3 


SUBROUTINE MOISC 


*MDISC eMO1SC* CONYROL ROUTINE FUR CALCULATING MACH DISCS 
COMMON /CNSHR/ RPHON( 2) -PNC Od FUNC 2)» VUUNC 2)» HOUN(2),2N(3) 
COMMUN /CINPUTZ PTOT(40,2)-DUMINP( 644A) 


COMMON /CRNORYZ 

2p PST 25,2) 
: SB FP VOUBAR C2362), RKAR( AS, 2)0,PROR(2$,2),HST2AC Lee) e LMN( 23502) 
4 ePROUND (22) ,0%pRNIp TIT »RCPOXQDSY,PSI 1+ YCALC,SLUPE (2-2) 
S sttCt.2) 

COMMON /CGAM/ GAMMA(2),G4AM1 (2)+G4M]1(2),GAM2(2) +G4M1QG(2) 
COMMON /SCSHOCK/ P1(5,2),UL (562) RHOL (5,2) 6 VGU1 (542) ,P2(5,2) 
1,U2065,2) KHOC (942) 6 VGU2(5 22) 6 Y2(5,2) -R2(5 2) 

COMMON /CSHK/ TANS1,OSHOCK,PSISHK,DELP,DELVQU, JLOWs JSHOCK 
1,xSHOCK(2),YSHOCK 

COMMON /CINIT/ NISC2)+NIIMI C2), NJIIM2(2) -STABIL e Xp XLe ITPRINT, 0X2 
1 »0X3,TS,OPSI(2) 

COMMUN /CCRNERZ NPTSM1,KDUM,ICRNER, XCRNER 

COMMON SCULHOYZ JLADY,JLADY1,SYBDY 


RHC Asp 2 eP (OS, 2) UC 28,2 Fe V(Pbe2) eVAU( 23,2) 


1 ,SOLIN(2,2) 
COMMON /CXDISC/ XMOISC,XSAVE, 
COMMON /CRITS/ BITS; BLANK 
LOGICAL AXISYM,DUAL,SSTRM,PCONT, BARPRT,ENDJOB, SOLID 
LOGICAL DSHOCK 

~ LOGICAL MOISCC 
IF (INISC.EG,2) RETURN 
IF (XMDISC.EG.BITS) RETURN 
IF CIDISC.FQ.C21)) RETURN 
TF (XCRNER,GT.XMDISC) XCRNER=XMDISC ~~ = “An ae mea 
IF (xX.LT.XMDISC) RETURN 

“HAVE PASSED CRITERIA FOR STARTING A MACH DISC 


LOISC,MOISCC 





IF (IO1SC.EQ,1) GO TO 100 z 

OONT INSERT MACH DISC UNTIL DATA ALLOWING RESTART HAS BEEN STORED 
WRITE (6/1003) X 
KL=1.E8 

~ SOLSCs=(" ~~ 
XCRNER=1,€8 
XMO1ISC=1,€8 im aaa ; lake = ae 
RETURN 


XMDISCS1.E8 

tsp 
PN(1)=P1(L,JT) 
RHON(1)=RHUL(L, JT) . Wise ec a 
VOUN(1) =VOUL(L, JT) 
UNCH)FUL(L JT) 
ZN(2)=SGRTCLe/C Let TANSI®TANSI)) | 
“IN(2)20.. 

ZNCLI=ESAGRTC Lee ZN62)42N(2)) 





ICRNERZ<4 
MOISCC=,TRUE. 
_JLeDY= JLOm 
IB saihidenocitsebdll 
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R(23,2)/VBAK (25,2), RMURAR(23,2),UBAK(23,2) a 


“COMMON /CLOGICZ PCONT(2,2),0UAL,SLIP,/AXISYM,SSTRM,BARPRT,ENOJOB = 


| 
| 
| 
| 
| 
| 
| 
| 
| 


a 


| 
| ' 
| 
i ‘ 
a a ee eee. eee ee 


pa Seer eee, eS eee eee eee eee 


| 
} 
afte 





WRITE (6,1000) JLBDY 
WRITE (6,1001) 
CALL NORMSH (GAMMA(CJT)) 
Kz] 
PROUND(K,JT)=PN(2) 
—TMPEUL(L STI ® (RHODE ITIACGAMMACSTISPL(LodTIIIAUICL IT) 
1 *(d,¢VOUL(L JT) ®VQUI(L,JT)) 
t ZM2=U2(LeJST)* CRHOSCL eA TTISCGAMMACITI RP 2(L,STIIIAUCCL AIT) 
5 1 #(1.¢VQU2(L,JT) *VQL2(L,JT)) 
\ ZMU=UN(2)* CRHON(2)/(GAMMACJT)*®PN(2))) *UNC2) _ 
| Ge=(GAMMA(JST)©1,)#,5 
Pitas Pv RSGAMMA(ST)/(GAMMACJT) Wf.) 
PTLSPI(LeJT)*(1.4+G2*ZM1 ) *#*PWR 
PT2=F2A(L, JT) *(1.+G2eZM2) ea PWR 
PTOT(JLBKOY, JT) =PT2 
PTU=PN(2)*#(1.¢+G2#L2MU) &ePWR 
ZM1L=SGRT(ZM1) 
ZM2=SGRT(2M2)_ 
7M4=SQRT(2ZM4) 
WRITE (6,1002) ZM1,PTI,PL(L,JT) 
WRITE (6/1002) ZM2,PT2,P2(L,JT) 
WRITE (6/1002) ZM4,PT4,PN(2) _ 
RETURN 
_ 1000 FORMAT (1X,29HA MACH DISC IS BEING INSERTED, 3X, 7HJLBOY =,18) 
1001 FORMAT (10%,26HRHO,P,U,V/U,W/U, ZN@-NORMSH) 
1002 FORMAT (33X,17HMACH,PT + Pol ree 36 4e4F15,5) Age = ee 
1003 FORMAT (3x%,2HX=,F14,.7,601HMACH DISC CANNOT BE INSETREO UNTIL AFTER 
1DATA HAS BEEN STORED) 











i ENO i ee ns oe se 
ea aes Re ene Ee nee ae ule en ee a Beene. Be 





ene 


a 
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lepeck MOC 

e “SUBROUTINE MOC(V,VCHK,P. PCH, SGN, TANA,RHOAVGPUAVG, 
* VORAVG,OLOR,ITYPE) 

hamoc CALCULATED BY METHOD OF CHARACTERISTICS 

r COMMON /CRNORY/ ANDDUM(6S50)-0xXe-RNJp JT» RO, OXQDSY,BNDKDU(6), TT (2) 

. COMMON /CNTROP/S RHS2,RHS,RHS1 

FTC T1.MMON /CGAM/ GAMMA(2),GAM1(2),GO"1(2),GAM2(2) GAMIQG(2) 

| COMMON /CINITZ NJIJC2) + NIIMI C2) + NIIM2(2) /STABIL Xp XLo ITPRINT, OX2 

if 1 ,Ox3,TS,0PST(2) 

COMMUN /CMLIM/ ZMLIM 

i COMMON /COPSIC/ DPSI1(2)+DPSIC(2),PTPRE(2) 


PAVG=(P4¢PCH)*®,5 
VQUAVG=(V4VCH)®,5 

UAVG2=UAVGRUAVG 
CSQSSQRT(GAMMA(JT)*PAVG/RHOAVG) 
VQU2P1SVGUAVGRVGUAVGEI, | 
SORTVUZSSORT(VOQU2P1 ) 
ZMAVG2SUAVG2*VGU2P1 ®RHOAVGsS (PAVG&GAMMA(JT)) 
IF (ZMAVG2.LT.ZMLIM) ZMAVG2=ZMLIM 
TANA=SQRT(1,/(ZMAVG2"1.)) 

_ 300 CONTINUE __ 








Ca CUNTTANT PEESSURE BOUNDARY 
VEVCH@SGN* (PAVG#ALUG (P/PCH)/ (TANA*®RHOAVG#UAVG2) +CSQ*(VURAVG/UAVGE 
LRHS1/ (RHOAVG*UAVG2*UAVGSSORTVURTAND OX) *( TANA+SGN*VQUAVG) ¢RHS2 
2/UAVG) *DLQR) ; 





Pca <P REGEOR Nikita tate ea EE sa GT nis 
END 2 id P (ora - _ eae, “4 

f = sins = sree -" a 

RL re ae eee ene A ee, Se ee Pe ST ee Pe ee oe ee es ee ea ale eS 

L 





RE te 
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ah 


ea ere; 


| speck NORMSH 

™  SURROUTINE NORMSH(GAMMA) 

*NORMSH JUMP CUNDINTIONS ACSOSS NORMAL SHOCK 
COMMUN /SCNSHKS RHO 2}, PC2),UCA) Fe VOU 2) ¢ hQU(2),2N(3) 


| 

\ 

re 7N X IS TRE UNIT NORMAL TO THE SHOCK 

I=1 8 See be 4 ; ray ene pees 
WRITE (601) RHOCT) +P C1) UCT) -VQUCI) nQUCT)»ZNCT) 

t ONLSFUCL I AECZNCE IP OVQUCE #2NC2) ¢aHQUC1) #ZN(3)) 





——$——= 











I KHOGQSONE #QNI*RHO(1) 
| GP=GOMMAeP(1) 
i Z7MACK2=RHOQU/GP 
[PC ADEPCL) ACL et2.*GAMMAS(GAMMAGL.)#(ZMACHO@10)) 
RHU C2) =RNUC1)* (GAMMD4},) #2MACHO/( (GAMMA=1,) *2MACH2¢2,) 
| QN2=UN} ARHOCL)/RHOC2) A 
f UC2)SUC1) + CQN2=QN1) #ZN(1) 
a UIGU2=U(1)7U(2) 
VQUC2)SVQUCL I #ULGU2+ CANC#ON1) *&2ZNC2)7U02) 
(WOU Ce SNOU CE AUT Ques CONG SON Ieee NES AUG ere ee 
1=2 
z WRITE (6,1) FOVCL) PCT), UCT)» VQUCT) »WOUCT) ¢ZNCI) 
1 FORMAT (TFL6.°, 
cn RETURN My 
END 
L ‘ am re 
} “i 
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Se ee ee ee See eee 


| sDECK ONEDIM 


“SUBROUTINE UNEDIN(JHULO,JTOUM,I10,-1G0,VGUESS,PCRIT) 
*QNEOIM eONEOIM™ CALUULATES GQNESDIMENSTONSL FLOW PROPERTIES 

COMMON /CJLEDYZ JLKOY,JLEDVYI,SYROY 

COMMON /CNSHK/ RHON(2),PN(2),UN(2),VQUN(2)-0UM(5) 

COMMON /CXDISC/ AMDISC,¥SAVE,IDISC,MUISCC 

COMMON /CINPUT/ F1( 40,2) /0UMINP (648) 


| 
| 
} 
| 
ag CUMMON /CGAM/ GAMMA(2),GAME(2),GAMI(2),GAMC(2)sGAMIOG(0) 
| COMMON /CRTSLPY xJUMP 
if COMMON /CBNORY/ RHO( 2302) oP (2342) 0U( 2302) 0 V (2502) + VOU(25,2) 
t 2 -PS1(23,2), R(23,2),YROR(23,2),PH0RAR( 23,2), UBAR(2342) 
3, VQUBAR(2 $72) -RBAR(23,2) pPRAR( 23,2) ePSI2( 172)024N( 2572) 
fp PBOUND (262d, OK RNIe STI RC/DXQDSY,PSI1, YCALC + SLUPE (22) ,TT(1 02) 
r COMMON /CINIT/S NJJC2),OUMINI (5), xXeXLe ITPRINT, OUMINE (5) pias IG 
| COMMUN /CDECID/ ZMACHH(10),Y1DOHLO(10),XHLD(10),VOQUHLO(10) 
f COMMON /CBDYPR/ XxBDY(4) 
COMMON /CBITS/ BITS, BLANK 
| CUMMUN /CJLBYS/ JLBOYS(2) 
eS eee Chee ot ae ie 
~ DATA ITIME 707— oS ee ae ee aNd 
\ DATS PTOTAL/1,E415/ 2 
J=JHOLD 
L PIO=PBAR(JHOLO, JT) : 
| IF (PTOTAL,.NE.BITS) GO TO 100 
'C* COMPUTE TOTAL PRESSURE FROM PREVIOUS X*STATION THE FIRST TIME THROUG — 


CALL TARPRT (1HY,Y,10,10) 

CALL TABPRT (3HRHO,RHO,10,10) 

CALL TARBPRT (3HVQU,VQU,10,10) 

CALL TARPRT (3h Us, U,10,10) 

C&LL TARPRT (3H Py, P,10,10) 

PSATIC=PN(2) 

~TMACH2=SRHON( 2) #UN(2) #UN(2) #01. 4VOUNC2) #VQUN( 0) ) ZU GAMMATIT) RONT2S) 
ZMACHESQRT(ZMACHO) 
TTOTS=1.4GAMI(JT)*#,S*#ZMACH2 
PTOTALEPSATIC#TTOTS#* (GAMMACJST)/GAMICJT)) 
POWERS (GOMMA(JT)41.)/02.*8GAMI(JT)) 
AQAST=(2,#TTOTS/(GAMMACJT) 41,)) #*POWER/ZMACH 

YSONIC= V(JLBOY, JT) *SORTOL, ZAQAST) aay ea eae 


ee ae ee ES Se ee Se enya ED 6 


| 
| 
' 
H 
{ 
| 


“Ce COMPUTE PROPERTIES AT CURENT XeSTATION 
100 PSATICEPID 
IF CITIME.GT.2) DVZ46S(VOUHLD (2) =VQUHLO(1)) 
XJUMPZAMAX} (,020,DV) 
“XJUMPZAMINE €,6100,XJUMP) 
x JUMP = JUMP 
IF (110,€0.0) xJUMP=",015 
IF (PSATIC.LT.PTOTAL) GO TO 200 
GO 10 4350 
200 TTQTSE(PTUTAL/PSATIC) #*#GAMIQOG(JT) 
IMACHESART (A. *(TTGTS=f,)/GAMi (JT) ) 
IF (ZMACH,GT.1.) ISUPERZI 
IF (110,60.0) ULOAQS=AQAST 
AQAST=(2,*TIOTS/(GAMMA(JT)41,.)) *#*#POWER/ZMACH 
Ce ASSUME AXISYMMETRIV FLOW 
_YNGYOLESIURT CAQAST/ULOAGA) 


| 
! 
| 
| 
\ 
} 
| 
| 
| 


: a a a ee a 
; 
i 
' 





ima YNQYOL IS THE RATIO UF NFw Y fi) YOLD 
——" k=] : ieee a 
YRAR(JLBDOY,JTISYNGYOL*e YC JLRADY,JT) 
SLOPE (CK, JT) F*VOUCILEDY, JT) +2. eC yBaR(JLBDY,JT)-V¥(JLADY,JT) )/0x 
G00 CONTINUE 
1GQ=1 
C*# BNORY GUESSES -SLUPE= AND CALCULATES ALL QUANTITIES ON THE BOUNDARY 
“és “INITIAL GUESS IS THET SLOPE IS SA¥E AS LAST TIME “> Fn 
/ CC® ONEDIM TAKES THE PRESSURE CORBESPONDING TO THE SLUPE AND CALCULATES 
| CE OF THE ONE DIMENSIONAL FLOW 
r TOLEABS(SLOPE(K,JT)=VQUBAR(J,JT)) 
IF (x ,GT.X5DY¥(3)) WRITE (60,4028) VQUBAR(J,JT),/SLOPE(K,JT),TOL 
~~ fT, PRER(J,JT) ea Sere ; [ee ra So me 
IF (TOL.LT..901) GO TO 390 
IF (110,GT.10) GO TO 380 
VGUESS=VOUHAR(J,JT) 
COLL PTSLP (VOUKAR(S,JT),SLOPE (Ke JT),110,VPTSL21.) 
IF (PRAR(S,JT).LT,PCRIT) GO TO 180 
“Ce FLOW WENT SUBSONIC IN MAIN STREAM, MAKE SURE NEw GUaSS SLLOWS FLOW 
IF (VOQURAR(Je-JT).LT.VGUESS) GO TO 180 
VOUKAR (Je JT) EVGUESS #xXJUMP 
GO TO 180 
C*# STATIC PRESSURE IS HIGHER THAN T(I)TAP PRESSURE=*DEXREASE VGU 
350 VOUBAR(J,JTIEVGUBAR( SJ, JT) &. 873% xX SUMP 
Fee RETURN ~~ F _ Sa 
380 WRITE (€ 6/1223) SLOPE(K,JT),VGUESS,PBAR(JHOLD, JT) + TOL, JHOLD 
SLOPE (K, JT) =VQUR4AR(J,JT) 
390 WRITE (6,1000)PTOTAL,PSATIC, ZMACH, AGAST, YHAR(JLHOY, JT)» SLOPE CK e JT) 
Il=1 
1G0=2 
~"— “{SRMSEG 
} T=IDIM 
~~ 300 VQURLD (CT) =VQUKHLDO(T<1) 
XHLO( 1) =XHLO(Te1) 
; YIOKLOCI)=YIONLD (CT -1) 
' ZMACHH(T)=ZMOCHH(Te1) ' 
foo ASE Se Sanna ae . : ie = 
IF (3.61.1) GO TO 300 
VQUFLD(I)SSLOFE(K, JT) 
XHLOC 1) =x 
YIOKLOCT)=YBAR(JLADY-JT) 
ZMECHKH(T)=ZMACH 
FVIRESEVIMES {> 
ICKECK=0 
IF (VGUHLO(3).GT.VQUHLD(2)) ICHECKZICHECK +] 
IF (VQUHLO(4).GT.VGQUHLD(3)) ICHECKSICHECK Sl 
IF C(ICHECK.GE.2) GU TU 420 
IF (Z2MACHH(1).LT.1.) GO TO 440 





e 


— 


-——-—----y 


| C® ITERATION CONVERGED 
C*# FLOW HAS GONE SUPERSONIC SMOOTHLY 
JLBDY=1 
JLHOYS(1)21 
MOISCC=,FALSE. 
I01SCc=9 
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_< 


— So 


Tieaorilinss 





~XSAVESHITS 


XMDISC=AITS 


GU TO 440 


"Ce THROAT SHAPE ITS APPROACHING & CUSP©=MDISCC ID TOO FAR DUMNSTREAM 


1C* NOT CLOSE ENOUGH TO SONIC POINT YET TO BE SURE THROAT [S APPORACHING 


420 


2MNEREZMACHH( 1) &2,¢7MACHH(2) 
IF (ZMNEW.LT.1.) GO TO 440 


CALL TARPRT (OHM, Y,XVe,ZMACHH, 40,10) 


Ce SET UP FOR NEW RESRART 


440 


1010 
1020 
1000 
1223 


4028 


IDISC=2 
PTOTAL=BITS 
ITIME=0 

Ov=0, : 
JLBDY2=JLBDY=1 
IF (JLACY2,LE.9) GO TO 1020 
ULD=Z7MACHRSURT(GAMMACJIT) ® TTC LTI,JT)*TIGTS) 

ONO 1010 Jst,-JLBOYe2 

P(J,JT)=SPSATIC 

PT(J,JT)Y=EPTOTAL 

ZMN(J, JT) =Z2MACH 

UCJ-JT)=sU1ID 

VQUCI,JT)=0.~ 

CUNTINUE 

RETURN 

FORMAT (1X,26HPTOTAL,PSATIC, MN, AQASTLYIO,SF13.5+5HSLOPE LF I3.5) 
FORMAT (1X,2KHFAILURE UF ONESDIM ITERATIONs/, 3X-23HSLOUPE,VGUESS,/PB 
14h,TOL,J,4F18.7,18) 

FORMAT (1xX,1O0HONEDIM ITERATION, GF14,7,21HVQUBAR, SLOPE, TOL,PBAR) 

END 
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#DECK PROLIC 
“SUBROUTINE PROLIC(K) 
*PROLIC COMPUTES A SINGLE STEP IN THE SOLN FO A GENERALIZED PARABUL 

COMMON /CTHETA/S THETA,TII 

COMMON /COAASS AAAS 

CUMMON /CVISHK/ £2(03,1),4103/1)/VISOUM(6) 
COMMUN /CENOS/ JSTART,JEND 





TC OMMON ZCPROLIZ A(46,1),ALPHAC1,1),HETA(G6,1)2¢GAMM(U6,1), iocmeraiaalcs: 
1 DELTA(46,1) ! 
COMMON /CTRIOI/Z COEFL (46), COEFC(46),COEFR( 46), RHS(46) { 
CUMMON /CBNDRYZ RHOC 2362) oP (2362. Ul(2Se2) 6 V(23re) eVQUC23,2) { 
2 ,PSI(23.2)- R(23,2) 6 YRAR (23,2) ,RHUKAR( 23,2)» UBAR (23,2) ; 
L 3p VQURAR (2342), RBAR(23,2),PRBR(23,2),PSI2C tee)e2MN(25e2) 
BpPBOUND (272) 0X eRNI, IT» ROP DAGDSY+PSI1,YCALC,SLOPE (ered eT (lee) it nee 
L COMMUN /CJLBYS/ JLENYS(2) ! 
COMMON /TKEIN/ XTKE( 20), TKERDY(20) ,NTKE,DUMTKE (122) ] 
COMMON /CTKERPR/ XTKEPR, XTPRSH, XTPRSF i 
COMMON /CINITS NIDC2)¢NIIME C2) +NJIIM2(2) »>STABIL > Xe XLe ITPRINT, DX2 1 
____1__ 0¥3,TS,DPS1(2) a ee eg Rs c _ Lea Saby 
COMMON /CJLROYS SLKOY,JLBOY) / SYBDY 
COMMON /CLOGIC/000(4), DUAL, D0DD(9) 
COMMON /CRELCT/ IRFLCT,ICHNG,ISIGN 7 
: LOGICAL DUAL 
C* GAMMN© ITS THE VALUE OF GAMM AT THE NEw SeSTEP©eTwO LEVELS OF GAMM ] 
Cs ARE REQUIRED. ONLY ONE VALUF OF THE CTHER VARIABLES IS REQUI | 
*E@. sue “0 SRE cRoGS SIRE ShOLs.  .. + - - =. = -— =. 
Ce eke TS THE RUNNING INDEX FOR DEPENDENT VARIABLES | 
Ce NES REPRESENTS TURKULENT KINETIC ENERGY ER Oe eO ee a a a a 
_C*  THETAe TS THE CRANK@NICHNLSON PARAMETEReTHETA=0 IS EXPLICIT s: j 
| Ce e-THETA=1 1S IMPLICIT | 
_C* JDUAL COMPRESSES MATRIX IN DUAL FLOw CASE TO KEEP IT TRIDIAGONAL 
| BP VU CRT la ar ES aa Eee le ala a a a | 
NIMIZSJEND$1 
100 JSPIZJSTART#41 as ws 7S ee aa a eal ] 
THE TAI=1,<THETA 4 
C* SETUP RHS, THEN UP=OD4TE BETA,GAMM,DFLTA FOR NEW X*STEP 
f  RARZHOPHACL SERS ORP GUPS Cuts sOeSsLcouL):)=~~°~™~C~C<i<=<i<i‘“ i‘ ‘ ; z SSO!!! ¥ 
AAAASAAARTHETAI®,S 
00 200 JzJSP1,NIMI : 
JisJ+JDUAL 
i COPFL (J1)SAADA#(RETACS,K) *RETACJ@1,K)) | 
COEF R( JL) =AAAAR(BETA(JS,K) *BETA(JO1,K)) | 
“200 RHS(J1) ECOEFL (JI) # AC Sof Ke (1 -COEFL CII SCOFFROJI) © (THETA ®DK& 1 





IDEL TAC IK) 2) FACS, K) COEF RCSD PAC JEL RK) +THETAL®GAMM(J,K)&DX 


C* RHS USES GAMM AT BUTH OLD AND NEw STATIONS@=THEREFORE IT APPEARS 
‘Cs IN BOTH DO LOOPS 
| 


fF “SP-C RCUERUL er raukeaeuurs CO Lu csc CCS 
,€* AXIS GF SYMMETRY B.C, 
| J=JSTART 
COLFLJ=0, 

COEF RIJZAAARTHETALECER TAC I,K) +BETACJe1,«)) 

J12J¢JOUAL 
t RHSOJLECL CUFF P Je Dae THE TAL eDELTAC IK) PACS EK) ECUEFR JOA Joi ek) 


ee =~ 


| a anew Saas 
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“CK 


er 
Ce 


} 


| 260 CALL COEFF ERS _ 


Ce 


Le THE TAL eDxeGAMM(J,K) 


THIS 15 NEEDED WHEN SHOCK IS CLOSE TO AxYTS OF SYMMETRY 


230 


COEFR( JL) =AAAA#(RETACS,K)*HETACJ41,K)) 
IF (DUAL) GU TO 600 


UPDATE QUTER 4,C,. 
INCLUDE JUMP CONDITIONS IN RHS _ 


250 


CALL TKESHK (2,K) 


IF (NOT, DUAL.OFJT.FQ.2) CALL LSPFIT (XTKE,TKEBDY,NTRE, X,A(JEND 


1,K)-1,0) 


UPDATE COEFFICIENTS -BETA,GAMM, AND DELTAee 


AAB=ZALPHA(TI,K)*#0x/(OPSI(JT)*0PSI(JT)) 
ADAA=THETA®AAAR,S 

OD=3@OOURUSPI1,NJM1 
RHS(J1)SRRSC JL) + THE TARDX*®GAMM(J,K) 
COEFR( JIL) =eAAAAR(RETACS,K) RE TAC J +1,K)) 


— + - —. - — - 4 





“300 CODEEK SI) TE rACOBRL EAI PEOVKARBETACIMATASDXK*DELTACJ,K) 


= 


Ax 


_ 310 


Mes 


Cr 


— 


mT ae 


ce 


ce 


350 


“OUTEE CFREE*STREGM) B,C. 


360 


1S OF SYMMETRY B.C. 

IF (Y(JLBOY,JT).GT..0001) GO TO 350 

If CICHNG.EQ.1) GO TO 350 

JisJSP1+JOU4aL 

CUFFR( SI) SCOEFRO(JI I 9. S5S553333*4COEFL (OSI) | 
CUEFCC JI )VECOEFC(J1) 41.5333 353533*COEFL(J1) 
IF CICHNG.NE.1) GO TO 350 

GO TO 370 


IF (QUAL) GO TO 500 





RHSENIMEDSRHSCNIMI )@COEFR(NIM) ) #A( JEND,K) 


INCLUDE JUMP CONSITIONS IN LHS COEFFICIENTS 


370 


390 


400 


SHOCK IS wITNIN UNE GKIO POINT OF AXIS OF SYMMETRY 


410 


CALL TKESHK (1,K) 

IF CICHNG.EQ.1) GO TO.310 | 
atas Goi) GO 10. = 
JSP1=SISP1 + JDUAL 

CALL TRIDIA (JSP1,NJM1) 


IF (DUAL) NIMLENJICL)O4 
LOCATE=$ ze. 4 
DU 400 J=JSPI+NIM] 
J1isJ-JOUAL 
ACJIL+K)=SRHS(J) 

ACL K)=(U AACS, KIAAC SK) DH CESSESSSS 

IF (ICHNG.EG.0,UR,ICHNG.EQ.3) GO TO 410 
IF (IRFLCT.EQ.3) GQ TO 410 


ICHNG=2 
ACL K)SACLK)SFLOATCISIGN) ®(A2(1,1)"AL(1,1)) 
IF (OUAL.ANO.JT.LEQ.1) GO TO 630 


SHOCK IS wITHIN TwO POINTS OF AXIS OF SYMMETRY 
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m Raa 
see 


440 


450 


__ 460 


470 


480 


_C*# SET UP DUAL FLOW CASE 


$00 


600 
} 


620 


CALL TABPRT (2442,42,6,6) 


“$50 JT=1 


~ GO TO €260,100),LOCATE 





IF CICHNG.EG.S) ACL KIEACL K) +s S33S3S33SFLOATCISIGN) ®(AQ(1,1) 
2-4101-1)) 

NJIMIZSNIMI 41 

IF (X.GE.XTREPR) CALL TABPRT (S5HTKE, As JEND, 10) 

IF C(IRFLCT.LE.1T) RETURN 

IF CIRFLCT.EG.2) GO TO 440 


e-TRFLCT=0-= NORMAL POINT —— 
meTKELCTs22=) RFFLECTICN FROM MAXH DISC 
ee] REL CTS$"= REGULAR REFLECTION 

REFLECTION OF SHCOK FRO AXIS OF SYMMETRY 





LL=1 

GO TO 450 
A(JLAOY/K)SACJLADY,K)RALCI,KISAC(1,K) 
CALL TKESHK (3,K) 

LL=3 

IRFLCT=1 

J=JLBDY 

ARATITOZAC(LLK)/SAL(LL,K) 

AC J/K)=ACJ,K)*ARATIO 


GO 10 469 

CONTINUE 

JLEDYISILADY +2 

TF (xX ,LT.XTKEPR) GO TO 480 
CALL TARPST (1HA,4,JLADY1-10) 


CONTINUE 
RETURN 


LOCATE=1 
GOTO €S70,550)e0F Ss 


JSTARTZJLBDY 

JENDZNISC1) 

NIMLENJICL) 91 

JSPLSISTART#L 

JDUAL?1 . ts acre A Me, aes. 
JENIJO1) #2 

CUPIZCHETACS ,KIFBETAC SHI, K)IZ(DPST(2)*(DPST(1)¢0PSI(2))) 
CUMIE(HETAC SOT KR) tHE TAC J©2,K)I/(OPSI(1)*(OPSI(1)+0PS1(2))) 
COERFL(JS)ESTHETARALPHACIE eK) aOKaCuMt 
CUFFR(S)S*THETA*ALPHA(TI,K) #DX4CJPI 
COEFCTIVEL Se CUEFR( J) CUFFL CJ) ©THE TA®OXMDELTAUCIOK) 
RHS(J)SRHS( J) THE TOROX®GAMM(S,K) 
NIMIENISCLIONII C2) #1 

Jt=2 

GO TO 360 

LOCATE=2 


Te OL LORURSOCLEUN Sie 4 tae a CG ee 


JENIIC1) 1 
COEFL(CJVSALPHACTIDK) *#THE TALS (BETACJ=©1,K) +BETA(Je2,K)/(OPSI CI) AC 
INPSI(1)+DPSI1(2)))*0X 

CUEFRCS)=ALPHA(II,K)*THETAL®(BETA(S ,KI*RETAC SOL KIA COPSI(C2)* 
PCDPST C1) ¢DPS1(2)))*Dx 
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Jtbe(J,.LE.1) GO TO 470 





pe ees eee eae Centres ee ett 


| Sere 











[ RHS(JVSCOFEFL IS) MAC Te2, KOC =COEFLISIMCCFRROIS) +(THETALSOXSDELTACJ, — 
“PKI IAACI KI FCOEFROSI AAC TOL RO THETALSGAMM(S,K) 80K ; 

630 JENDENJIC IL eNII(2) 

JSPIENIIO1) 92 

JOuaLso 

JSTARTENII (CL) +t 

J¥=2 


CEE RTT RE 6 eae ee Se 
GO TO (250,250+700) LOCATE 
700 JSPIENSICI) +4 
GO TO 390 
CT |. LAR MERE eed cae a oe ee —_ eee Fiat oe teen noes 





a a a a oe ES 


| 
| 
| 
| 
| 
H 
EE eee ores Se ee eee 





| 
Oat race Nee Pee Ra 
| 

a ac lech ee ee ees tap sia ana iy ae sahiamnataansstaatnerescan St 


= Rehnaa ry. > Saas : peek ee ES 
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| eveck PRINT 


“SUBROUTINE PRINT 


*PRINT sePRINT&®@® SSFO OUTPUT ROUTINE 


“COMMON ZCVISHK/ TKE2(3),TKE1(3) > VISOUM(6) 


ee 


‘ 


nai ie! eo seme iii a) eis Sea vane 


Caee 


fa A 


~~ COMMON /CGAM/ GAMMA(2),GAM1(2)¢GON1(2),GAM2(2),GAM1GG(2) 


PF TRE TA(40,2) + TANTH(40,2) 


~ TADJUS=0 ~ 


DIMENSTON YS(23,2)-PSIS(23,2) 
EWVUIVALENCE CYS/¥),(PSIS,PSI) 
COMMONZEILK/CSC 

COMMUN/F ILE S/ORGF ,UPDF »NEWF, SCRE 
COMMUN/KEYS/KEV(11) aie. 
CUMMON /CLOGIC/ PCONT(2,2),D0UAL,SLIP,AXISYM,SSTRM, BARPRKT,ENDOJOB 

1 »SOLIO(2,2) 

COMMON /CBNORY/ RHU( 2362) 0P (2542) 0 U(25e2) 4 V (2542) eVOUC2342) 

2 »PSI(23re)» R023, 2) 6 HAR (2542), RHOBAR( 25,2), UBAR (23,2) 

3 _e VOUBAR (23,2) -RKAR( 23,2) ,PRER(23,2),PS12( 1-2)+Z2YN(23-2) 

4 +PBOUND (262) ,0X,KNJeJTT,» RCs OKQUSY,PSI1,YCALC+SLUPE (2,2) 
5S -TtCt.2) 

COMMON /CSHK/ TANS1,OSHOCK,PSISHK -DELP,DELVQU,JLOW, JSHOCK 
1,xS0CK(2),YSHOCK 

COMMON /CSHOCK/ P1(562),U1 (542) -RHOL (5,2) pVOUL (S62) -P2(5,2) 
16U2065¢2) -RHU2(5,2) 6 VOU2(542) 2 Y2(547) »P2(5e2) 


COMMON s/COLOPTZ ULDPT(46),PT1,PT2 

COMMON /CSHMN/ ZM1,2M2 

CUMMON /CINIT/ NJJSC2)/NIIM1 (2) ,NJIIM202),STABIL, Xe XL,IPRINT/DX2 

! ,Ox3,TS,0PSI(2) ; 

COMMON /CINPUT/S PT (40,2) 2/DUCL 02) ePRESS( 4012), VIN( 4002) ¢2M( 40,2) 


2 sp XLOW( 2042) 6 YON (20,2), XUP (2072), YUP (2042) »NSTRM(2) »NPTSL(2) 

3, NPTSU(2) + PUP (2042) ¢PLON(2072) ag ie aa 
LOGICAL 4xISY™,0UAL,SSTRM,PCUNT, BARPRT, ENOJUB, SOLID 
LOGICAL DSHOCK oa — oes 
COMMON /CPROLI/ TKE (46),PB1DUM(139) 


COMMON/IOFILE/ TAPIN, TAPUT 

LOGICAL ~" TAPIN,TAPOT — 
COMMON /FILINO/ KREC+KXX = 
OATA JKe+PROUMPENTRYI/0, 1,6 ¢15eT/ 
LOGICAL ENTRYT 











XLJ=xL/2, 

XJ=x/2, ¢ , 
IFCENTRYI) KREC=0 
KYX = CSC*#xJ+.5 D 
CRE Corec AS eues in a Ae ere Gere a ee ae 
KREC = KREC#] 

IF(TAPOT) WRITE (3) KREC+KXX,YS,/PSIS,P,PT,ZMN,TKE, | 
bed NJJ,XLJS/OUAL 


JTSITY 


IF (JT,EG.2) TADJUSENJIJOL) 
TANS=TANS! ; 


C* FOR QUAL FLOWS, PRINT BOTH STREAMS AT ONCE, BUT PRINT UPPER STREAN F 


WRITE (oy) X 
WRITE (62000) 
WRITE (6r2) 
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nl = ee a a te nt 


| 
| 
! 
| 
| 


10 ITENJJ(JT) 
FXPONZD)./GAMIOG(JT) 
JSm1=0 
IF (XSHOCK(JT).GI.X) GU TO 20 
JSMISTAHS(JSHOCK) 
IF (OSHOCK) GU TO 15 


Lee 
r JSMI=ISMiel ie F cieioe ae a es a ea ee 
GO TO 20 
15 L=1 


20 IT=I+1LANJUS 

TISSQRTCTKEC(IT)) 

WRITE (6-3000) TeVCLeITI+ZMNCI, STI, VQUCL, JT) PTTL, JT) PCL, JT) /RHOT © 
* I,J7),UCI-JT)-TI 

C##20 WRITE (6,5) Ie ¥C1,-J3T)+ZMN(I,JT),VOUCI,JT) PTC I+ST)-PCI,JT)-RHO(I oJ 
Cee 47),UCI,J5T) 


__IF_(1.NE.JSM1) GU TO 100 


_Ce PTU,PT2,2M1,ZMe2 ARE COACLUATED IN ==SHOCK2 
WRITE (6,4) 


IF (,NOT,NSHOCK) GO TO 200 
C* PRINT OQWN*eSHOCK INFORMATION 
~~ TLESORTCTKE2(LY) we Se TB Sree ENT NEE gO ee ea 
\ WRITE (6,5001) YSHOCKsZM2,VOQU2(L, JT) »PT2, Pats JT), RHOO(L + JT) ,U2 
1(L,JT),TANS,TI 
_Ceee WRITE (6,5) JB, YSHOCK,ZM2,VQU2(L, JT) »PT2,P2(Le JT) -RHUOC(L JT) ,UeC(L 
Ces 1,37), TANS! ; 
ee TIZSQRT(TKEL(L)) 

1(L,JT),TANSI,-TI 
‘Cae WRITE (6,3) JO, YSHOCK,ZMI,VOUICL JT) -PTI,PL CL, JT),RHOLCL ,JT),-ULCL 
,C#* 1,5T),/ TANS 

60 WRITE (6,4) 

ee eS ere 
ia ROT OMEGrCRN COLOR ea tr fie es 8am eagres es SS et 


{ 

t IF (JT,EQ.1) RETURN 
Dias oS Ane 

1ADJUS=0 

WRITE (655) __ 
l GO TO 10 : 
| 


'C® PRINT UP=SHOCK INFORMATION 
b 200 TISSORTCTKEL(L)) 
} WRITE (6,3001) YSHOCKsZM1ie VQUIC(L, JT) -PTI,Pi(Ls JT) -RHOL(L,JT),UL 
L 1(L, JT), TANS, TI 
C#200 MRITE (643) JBrYSHOCK,Z2M1,VQUI(L¢JT)/PTI,PL(Le JT) RHOL (Le JTY UIC © 
C* 1,37), TANS) 
TISSORT(TKE2(L)) 
WRITE (643001) VYSHOCKs2M2,VQU2(L JT) ePT2,P2( Le JT) ¢RAO2(Le JT) eU2 
1(L,JT), TANS, TI 
Cn _WRITE (643) JBrYSHUCKs ZM2,VOUC(L JT)» PT2, Pei pe ST)eRHCC (Le JT) ,U2CL 


r 


“WRITE (6/3001) YSHOCK,2M1,VOUL(L, JT), PTI1,P1(L,JT)-RHOI(L, JT) UT ; 


— 


pe (eee! YoY) eee eee 


eee See eee 


a 


NEO eek er fn ee a 


Ce Fy, dT)e TANSI 
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| _60 10 60 SS Oe SOR OEE AEA | ARO Ae eS Ren ae 
1 FORMAT (¢ YH),10x%-SHX/R =,2X%,F9.U,///) { 
2000 FORMAT (14K p LHYe LEX, dMMACH, OX, UHELOM, LOX, SHTOTAL, LOX, OHSTATIC, 7X, 
ATHDENSITY, LOK, 2H, LOxX,SHSHOCK, UX, JOHTURRULENCE ss Ze 2S Xe HRNUMBER, AK, 
2OSHANGLE » 8X, BHPRE SSURE, 7X, BRPRESSURE + 20K, RHVELOCITYs 7X+S5HONGLE OX, 
JOHINTEN, » /7) 


"Ceae2 FORMAT (19%, IH¥e 12K, GHMACH, LOK, GHELOMe LIX, SHTOTAL,IIX,OHSTATIOC. 8©=©—©—0C~C*S 
Cate L,10X+ 7THDENSITYs 2X4 2HUM, 12K, SHSHIICK 4 p27, OHNUMBE Ky 11K, SHANGLE 9X, | 
“Caen 2BHPRESSURE » BX, BHPRESSURE pOUX p BHVELOCIT Ys 9X, SHANGLE,S/) 
(Ceeed FORMAT (14,5F15,4,4x,3F 15,4) | 
3000 FORMAT(IG,2F14,4,F12.4,2F14,0,F15.4,F14,0,14X,F 13,4) 

, 3001 FORMAT (UX, 2F IGG AFI2.4 CF IU de FIS.4,2F14.4,F 15.4) TE 
& FORMAT (/) H 

L S FORMAT (////) | 
t. CR ee Pe, Ee es | 


———————— SS  —  ——————————————————_ eee 





fo — = _- — =~ - —- - ; 
sia aceneeiaag j 

—— ——- —__-_-. ; 
| Repent ee pics See PUN SOR SS Te eee EE | 
a er ha ele, 
| i 
. - — - - ( 

| Se 2 eh a ee Ss eS 
= - oe eS _ | 
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f 


*DECK PTYSLP 

SUBROUTINE PTSLP( 1, Y,K, XH, TYPE) 
*PTSLP GENERAL CINFAR INTERP ROUTINE e-PTSLP== 
} DIMENSION XHC1) 
| COMMON /CPTSLP/ XJUMP 


} 
K=Ko} ee. - 2 ee - 

[ xH(2)=XH(1) é, i = ‘ 

[ xH(1)=x 


C*# STORE Y VALUES IN ¥H(3) AND xXH(4) 
XH(G)=xKXH($) 

xH(3)=Y 

IF (k,€Q.1) GO TO 10 


eh alana 


(C#  #aTYPESO.#® FINDS THE SOLUTION KHERE Y=0, 
Ce eeTYPEsi.*e*# FINDS THE SOLUTION WHREE x=Y 


SLOPEZ(KH(G)exHCSIISOXH( 2) KH(1)) 
X=(XH(1) *SLUPE=XH(3))/(SLOPE=1 TYPE) oe. - 
GO TO 20 : % Oe? ae i i aa 
“C*# FIRST TIME THROUGH 
10 K=CB,*#XHCL)OXN( 3) )*,2SRTYPECXH( LIA (Le TYPED ® C1 ee KH(3)) 
Ce CHECS TO BE SURE New GUESS IS FOR ENOUGH Awdy FROM CLD GUESS WHEN OL 
C( IS NEAR ZERO 
iS TR (CABSCXHCL)DY LT. (1.6 94)) KEXH(1)eXJUMPHABS(XHU3)) #10, > a 
20 IF (xJUMP,.LT.9.) GO TO 30 
TE OK LT CL. eX JUMP) OXH ED) XEXHO S801, =X JUMP) 
IF (X,GT. C1. +X JUMP) *®XHO1)) XEXHC EL) ®O01.¢xXJUMP) 
RETURN 
“Ce  XJUMP.LT.O IS SIGNAL THAT *exXee MUST BE SLOWED TO CHANGE SIGN DURINT ~~~ 
30 IF (xX.LT. CXHC1L) +x JUMP) ) xox O1) 4x JUMP 
IF (xX ,GT.OXHO(1)*xJUMP)) K=xH C1) Sx JUMP 
IF (K.NE.2) RETURN 
"Ce ALLOK 2ND GUESS TO MOVE BY 2 XJUMP IF FIRST GUESS WAS IN WRONT DIREC 
IF (X.EQ,xH(2)) x=2.eXKH(2)=xH(1) 
RETURN S Beats a4 aaa oa 
END 





— 
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: a. 
_*DECK RESETM i 
SUBROUTINE KESETM(EXPON,LPOeT) 
 #RESETM CORRECTS MN .LT. 1 
COMMON /CKNORY/ DUM(652)+JT,DUMM(A)» TTC(2) 

COMMUN /CGOM/ GAMMA(2),GAML(2),GANI(2) pGAM2(2) -GAMIQG(2) | 
COMMON /COLDPT/ ALDPT(23-2),0LOPTS(2) 

COMMON /CSHOCK/ P1(572),UL (542) RHOL (52) VOUL (502) P2522) 








PeUS(S rp Ave RHOC( I, 2) -VEUC(S¢ 2d VACS 62) H26502) 
COMMUN /CFRONT/S ISHOCK,YSHK,PSISHK,FRACTN 
COMMUN /CRH/ JSH,L,TANS,U2G,SGN,KPRESS 
COMMUN/OSHKPT/SHKPRT 

LOGICAL SHKPRT 





ZM2=1,02 
TSOTT=H1.401.¢(GAMMA(JT) 91, )*%.5#2M2) 
P2(LP2,JT)=ULDPTS(2)*TSOTT*#*#EXPON 
RHOQ(LPA,ITI=PA(LPA,ST)/(TSQTI*TT(ST)) 
G2=ZM2eGAMMA(JT) #P2(LP2,ST)/RHOQ(LP2, JT) 





U2(LP2,JT)=SORT(G2/(1.,+VQU2(LP2,JT) *VOQU2(LP2,JT))) 

IF (.NOGT,SHKPRT) GO TO 10 

WRITE (651) UG(LP2rJT)-RHUA(LP2,JT),-P2(LP2, JT) + JT 

WRITE (6-1) TANSO, TANS 


10 CONTINUE 


~ RETURN, 








FORMAT (2xX,4HEXIT,3F 16,6518) 
ENO 








te tt ht st tt ts st 


eee oe 





}+~——-—-———. —— —_—_--- -—- 
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' 

'*DECK RESTRT 
i ~ SUBRUUT 
L#RESTRI 


' COMMON/ 
LOGICAL 
| COMMON 
“CC UMMUN 
{ 1 ,Ox3, 
t COMMON 
L 1,U2(5,2 
' CUMMUN 
L COMMON 
COMMON 
{ COMMON 
| COMMON 
| COMMON 
i 1, xSHOCK 
___ COMMON 
& #ePStt 
3) 6 VQUB 
4 ,PROU 
COMMON 
COMMON 
COMMON 


~ JDUMEND,: 


COMMON 
COMMON 


INE RESTRIC ICASE )~ 
aeRESTHT aa STORES DATA FOR RESTART 


TROUBL/ ERR, ENDJOB 
ERR, FNDJOB 
/CXOISC/ XMDISC,XSAVE,IOISC,“DISCC 


JCINITZ NJJC2)>NIIMI (C2) + NJIM2(2) »STAHIL XeXLeIPRINT,OK2 


TS, OPSI(2) 

SCSHOCK/ P1(5¢2),U1 (562) @RHOL (5,2) »VGU1 (5,2) ,P2(5,2) 
YeRHU2(5¢2) -VQUC (S02) 6 V¥A(S42) R205 22) 

/CINPUTZ PT (40,2) ¢DUMIN( 648) 
/CJLBDY/ JLBDY,JLBDY1,SY80Y 
/CCKNER/ NPTSM1+KDUM,ICRNER, XCRNER- 
/CFRONTZ SHUCKI(1)¢ YSHK + PSHOCK sFRACTN 

JCRH/ SHUC1) +b TANS, U2G,SGN,KPRESS 

/CSHK/ TANS1(1),0SHOCK,PSISHK,DELP,DELVQU, JLUW, JSHUCK 
(2) + YSHOCK 

JCRNORY/ RHO( 2342) 2P (2342) 0U( 2342) 0 ¥ (2342) 6 VOU 23,0) 


2sre)e R( 23,2), YB4AR (23,2), RROKAR (25,2), UK AR(23,2) 


AR(2 542) + RBAR( 23,2), PHAR( 25,2) ¢PSIT2( 142)-2MN(25,2) 

ND (262) ¢0K+RNJp TT + RO, D¥QOSY PSI 1, YCALC,+ SLOPE (2,2),TT(1,2) 
JCGAM/ GAMMA(2),GAM1(2),GAMI (2) ,GAM2(2),GAMIONG(2) 
/CJILBYS/ JLADYS(2) 

/CLUGIC/ PCUNT(2,2),0UAL+ SLIP, AXISYM,SSTRM,BARPRI, 





SURERCONER: «int Ae ES ea OS. 
/CSHFR/ IF ROUM, HUGE 
/CSHK2/ IFIRST, II 


DIMENSTON HOLDV (574), IHOLDV(11) 


LOGICAL 


C* TOISc=10 


"Ce I ISISC=2 MEANS MACK DISC HAS ALL READY BEEN INSERTEDP 


.CR ID1SC=*1 


__ GU TO ¢ 


| 
.ce IcCasé=1 I 
100 SE Cist 
WRITE ( 
It (TOI 


C*® RESET XMDISC IF IT HAS VEEN DELAYED BECAUSE DATA HAS NOT 
XMOISC= ; ong it pr as + 
XCRNERS 


IO0rscst 


XMOMING 


HOLOV(I 


i ER ES TOR OF 


XMOMAX=1,E8 


AxISYMs+MDISCC 





MEANS FLOW WENT SUBDONIC WHEN ISSERTING MACH DISC 


MBANS MACH DISC WILL BE INSERTED 4S SOON AS DATA HAS BEEN 
NAMELIST /B/ HOLOV, IHOLOV 


100+500+700,400),1CASE _ 





MPLIES STORE DATA FOR LATER RESTART 
OR.EQ.1) RETURN : 
6,999) x 

SC.EQ@.0) GO TO 110 


K+.2n0Xx 
XMOISC 


XSAVE 


)=xMOISC 


HOLDV (2) =xXSAVE 


| 
- 
110 CALL PRINT 
ISTOR=1 


HOLOV( 5) =x 


120 HOLOV(M)EPL(M=5,1) 


ce /CSHOCKS 
7 DO 120 
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BEEN STORED 


{ 
M=4,63 , ee ee ee eee -—- | 


a ey ee Se VES See Sy CE Oe eS ee eee 


a eee 


{ 
{ 
| 
{ 
| 
| 
| 
i 


’ 


icen 


140 
Kea: 


160 
TRO 


- 


200 
Ce 


ers 


21s 


C* 


220 


230 


Ce 
“500 
sos 


540 
560 
560 


600 


= 
' 


520 


CSHK/ 

DO 140 M=8u,93 
HOLOV(M)STANS1 (M83) 
CBNORY?Z 

ON 160 M=94, 3469 
HOLDV(M)=RHO(M=93,1) 
DQ 180 M=370,420 


“HOLDOVCM)EZNN(M*569,1) 


ON 200 M=4e1,424G 
HOLOV(M)=SLOPE (M=420,1) 


/CINPUTS 


DO 210 M=425,504 
HOLDV(M)=PT(M=424,1) 
OG 215 4=505,524 
HOLDV(M)=Y2(M"504,1) 
RMOLOV(S25)=hPSI2C1,1) 
HOLOV (526) =PSI2(1,2) 
HOLDV(S27)=Dxe 

_HOLOV (528) =0K3 wae 
HULDV(S29)=I1CRNER 
ROLOV(S30)=JLBDYS(1) 
HOLDV(S31)=JLBDYS(2) 
HOLDV(S32)=JLBDY 
HOLOV(S33)=JL8OYI 
ROLOV(S $4) =SYRDY Ae Be 
HOLDV(S35)=S1TFRDUM 
HULDV(SS6)=IFIRST 


SCFRONTS 


00 220 “=565,568 
HOLOV(M)=SHOCKI (M-564) 











HOLDV(™)=SHJ (M9568) 
IF (MOISCC) CALL 
RETURN 


ISTOK=0 

WRITE (6,998) 
xSAVETHOLDV( 2) 
x=KULOV( 5) 

OO S20 Ms4,83 
PLi(<-$,1)=40OLO0V(M) 
“DU S40 42H4,93 = 
TANS! (M83) SHOLDV(M) 

DU S40 M=94, 3609 

RHO (M=9$,1) =HULDV(M) 
OU S#O “=570,420 
ZMN(M= $69, 1)=HOLOVOM) 
OO 600 42421,424 
SLORE (M4201) =4OLDV(M) 
DO 610 M=425,504 
PT(Meueu,{)ERKOLOV(M) 
0G 615 “2505-524 
¥2(™=2504,1)=hOLOV(M) 
PSI2(1, 1) =i UVES 25) 


TABPRT(SHHOLDV,HOLDV,574,10) 


ICASE=2 IMPLIES RESTART FROM STORED PROFILES 
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= ee ees 4 


[oe pew a 


| b TeCh,2)240LDV(S26) 
Oxe=sHOLOVIS27) 
Ox 3=HOLOV(S24) 
“Ce DxX3 WILL KE DESTROYED IN -SSFOe 
IF €OXBLT.LOX2) Dx22DK3 


SYKDY =HOLOV(S34) 
- JLOW = STROLOVE 1) ee ae ae ee eee ae aes Se I Beery 8 
i JSHUCK SIHULDVE 2) 


JLADYS(1)=1THOLOV(3) 
JLEDYS(2)=IHOLOV(4), 
TF ROUM =ITHOLDOV(S) 
IFIRST =1HULDV(6) 
JSH =ITROLOV(7)_ 
t =IHOLOV(B) 
| NPTSM] =ITHOLDV(9) 
ICRNER =ITHOLOV(10) 
O00 620 M=5565,568 
620 SHOCKI(M=S64) =sHOLOV(M) 
=: OCR GM CCL eh se eres, ck een ae eee Soe eee en en en ee 
630 SHJ(M-568)=HOLDV(M) aa 
IF (.NOT,4XISYM) GO TO 641 2 - 
DO 640 M=232,277 ier - 
640 R(M-231,1)=HOLDV(M) 
641 CONTINUE 1 
JT=2 
1 
i 
{ 





| 
_—— 








0 SS ee ee ee | 


fii ie Rcd ES ORV @ Sh oie ea Re i EN een REE ER any ie Ee 


JLEOYS(2)51_ 

JLBOY=1 

JLBOY1=2 

SYBOY=PSI( 1,1) 
____IFROUM=0 | 

~ TEIRST=0 
CALL PRINT 
RETURN oa ne i aD tr eel aca eT { 


-_———_— ~— —— — | 





700 xMDISC=HOLDV(1) ; : 
C* MDISC WAS TOU FAR DOWNSTREAM 
oe = IF CXMDISC.LT.XMDMAX) XMDMAXEXMDIS 
C*# FIND NEw GUESS FOR XMDISC 
XMDISCEXMOMING , 98 (XMOMAK@XMOMIN) 
WRITE (6,997) XMDMAXY,XMDMIN,HOLDV(2),xXMDISC i 
101scs10 ° ; 
{ GU TO 505 ? PT a i a4 
Ce RESTART FLOW FROM EXTERNAL (CARD) SOURCE 
"ROO ERR=.FALSE, 
READ (5,8) | 
IF (ERR) RETURN | 
ISTOR=1 = SS a ao ee ae 
‘ 


a 


1D1SC=0 
XCRNER=1 ER 

f CALL TABPRT (SHHOULOV,HOLOV,574,10) 
GU 10 505 


5 FORMAT (1%,5(E15.6,14,)) 
997 FORMAT (13,3) eRMAY XMDISC =,F10,7,5X,12HMIN XMDISC E,FLG,7 See NMX S 


ee 
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1F1d,7) 
END 











VAVE S,FIGLT ASX e1L24NEW XMOISC 
99R FORMAT (1x, 23hFLUN IS HEING 
999 FORMAT (1%,47#D ATA ITS BEING 


= FiG, 


1) 


KE STARTED) 


STORED 


FUR POSSIBLE 
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RESTART 


at 


Xz, 





eDECK RH } 
4 SUBROUTINE Re(x, JT) oes nae Pe ae mee ae eae = 1 
*hH FINDS SULUTION TO THE RANKINEFeHUGONTOT EQUATIONS 
| CUMMOUN /CERKONT/S TSHOCK,YSHK,PSISHK,FRACTN { 
COMMON /CBANDRYZS RHO 23 ¢ 2p PCOSe 2A Cdr 2) oe VOC 25r2) pe VOU 23,2) 
2 »PSI(23,2), KC 23,2) 6 YHAR( 25,2), RHURAR( 23,2), U4AK( 23,2) 
3p VQURAR (23,2) -RBAR( 23,2) ePRAK(CSe2)ePST20 162) 6 2MN( 25,2) 
Gp PHOUNDL 2p 2) DX RNI PITTA RCs DXODSY,PST1¢YCALC, SLOPE (2,2) 
5 ,TT(1,2) 
COMMON /CPTSLP/ xJUMP 
CUMMON /CSHK/ TANS1,OSHUCK,PSHOCK, DELP, DELVQUs JLOWs JSHOCK 
1,xXSHOCK(2),YSHOCK 
COMMUN /CSHUCKZS P1652) ,UL(CS 22) -RHOL (S22) 6 VQUE(Sr 2), PC(502) 
VeU2CSe 2) PHRUC(S 2) pVOU2(Sr2d,VA(Sred) sRA(Se2) ee, 6 
COMMON /CGAM/ GBMMO(2),GAM)(2),GE8NT(2),G4M2(2) ,GAMIGG(2) 
COMMON /CCRNER/ NPTSM1,KDUM, ICRNER,XCRNER 
COMMON /CKPR/ XITPRT1-xXIPRT2,XIPRT3,xXIPRTG 
COMMON /CRH/ JSH»bLsTANS,U2G,SGN, KPRESS 
COMMUN/QSHKPT/SHKPRT 
~ LOGICAL SHKPRT = 
DIMENSION VPTSLP(8) 


ek eA et OP ee 


[ae 
| 


rr 


, oe ee: 


lI=1 
J=JSHOCK | 
If (J.LE.1) J=2 
won RIMCININRR Cae og = ae ee whe? ee Se EEE RD om ee a eA Ce oe me gee me 1 
IF (X,GT,2.6.AND.U2G.LT.101) U2GE1.15_ ; 
TCRIT=HTICII,JTI/(C(GAMMA( JT) 41.)%.5) | 
_C* CALCULATE MAX U2 FOR ZERM STRENGTH XHOCK | 
Ce CALCULATE MIN U2 FOR SHOCK TN SONIC BELOCITY : a ae A ‘ } 
U2MINZ2.a(TICIIL, JT) “TCRITI/GAMIQG(JT) 
(U2MINESQRT(UCMIN/ (1, ¢VQU2(L, JT) eVOUS(L, ITY) } 
IF (KPRESS.EQ.1) GU TO 98 


U2MAXEUI (Lp JT) #SORTC (1. 4¢VOUL (Le ITI *VOUL (LOST) IZCL. #VQU2(L, JT)® | 
1vGU2(L,JT))) ; 
100 U2(i,JT)=U2G ae oe ar 
IF CICRNER EO. (94) OR. ICRNFR,EN.(93)) GO TO 99 
—F90 TANSE(U2(LoJT)SUI (Le STI) ZCUt (Le JT) VOUS Cee JT) HU 2CL JT) #VOUSTL ITI 1 


RHOS(L, JTIERHOL(Le JT) # ((TANS@VQUS (Ly JT) I/(TANS@VQU2(Lo JT) HCC 
1 Le#VQU2(L ITI *#TANS)/(1.¢VGUI(L, JT) TANS) ) 
P2CL/ITISOL(LeJTIF(RHOL (Le JT) #UL CL JTIAUL (Le JT) &(TANS=VOQUI (LAST) 
Lo *(TANS*VQUI (Ly JT) )eRMU2(L ST) #U2(L ST) HU2(L AIT) * (TANS@VGQU2(L/ JT) 
2) #(TANS@VOU2(L+JT))I/ CL. + TANS# TANS) 
~ 6O TO 105 + eet, 3 eeeon ary 
9B ZMLS=GAMMAC JT) #PL(Le ITIZCRHOI (Le dT) AUICL JT) #UT (LIT) 
i SIN2BE((CP2CL AIT MPU (Le JT) #(GAMMOCJT) +1. )/(PL (Le JT) #2, 8GAMMACJT)) 
{ 1 #1,)87Mte 
| 


U2(L,JT)=UeG 
T2=Z=SGNeSURT(SINZR/(1.°SIN2R)) 
TANS S(VQUI( LO JT) ¢T2)7(1eeVGUL(L dT) #Te) 
| 99 VQU2CL, JIIZECULCL JTI RCL. FVOUL(Le- JT) ® TANS) /UC(L/JTI=1,)7T ANS 
UeMAx=uL(L.JT) 
RHO2]CL, JTIERHOL( Le JT) #& CC TANS@VQUI (LA JT) AC TANS@VQU2(L+ JT) I) CC 
1 Le4VQU2CL¢ITI*TANS)/(CL.#+VOUL(CL JT) *® TANS) ) 
105 TS=SP2(L-JT)/RHUC(L JT) 
IF (CTS,UT,TCHIT) GU TO 1055 


7 Se oe 





IF (TS.LT-TT(II-JT)) GO TO 1055 
IF CICRNER.LEO, (C24) UR, ICRNER,EG.(*3)) GO TO 1054 
U2GEU2Ge1.03 
GO TO 1058 
10SH TS2,999eTT(1I-JT) 
1055 V2(LAJTISSGRIC(TICII¢JTI“1TS) *GAM2(JTIS(C1.¢VQU2(L JT) *vQUe2(L,JT))) 
~TOLEABS ((U2G"U2(L, JT) )/U2G) ‘ a ee ee P 
IF (xX,GT,XIPRTI1) wRITE (6,1098) U2G,UA(L.~JT)- TOL 
IF (KOUNT.GT.10) GO TO 106 
IF (TOL.LT.~.0005) GO TO 110 
XJUMP=,1 
UZGSVSUAG. os ng 
CALL PTSLP (CU2G,U2(L-JTIAKOUNT, VPTSLP,1.) 
C*® CHECK TO BE SURE VELOCITY DECREASES ACROSS SHOCK 
10584 IF (U2G.LT.UeMAX) GU TO 100 
106 U2G6=.9999#UCMAX 
IF (U2G.NE.U2GSV) GO TO 100 
IF(SHKPRT) WRITE (6.1102) U2G,VAU2(L, JT) 
U2G=.99995 #UCMAX 
GO TO 4100 


108 IFC .NOT.SHKPRT ) GO TO 1081 
WRITE (6/1100) U2G,U2(L,JT) 
WRITE (Oe BIPU(CLedT)oULCL JT) -VQUICL JT) ,VQU2(LoJT) 
7081 CONTINUE 


110 CONTINUE 
RETURN 


8 FORMAT (1x,7F16,8) 
“1098 FORMAT (1x, 10HU2G,U2,TOL, $F14,7) 
1100 FORMAOT (34HRANKINE HUGONTOT ITERATION FAILED. s/7+SHUCG =,F16.6+ 
1 GHU2 =,F16.6) 
1102 FORMAT (2%,55KReH SULUTION REQUIRES INCREASE IN VELOCITY ACROSS Sh 
LOCK, 2F16,6,2%, 7HU2, VQUC) 
END 


SET AES AES SIRE EO 


= 
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' ®DECK SEARCH 
SUBRKUUTINE SEARCH XYZ) ; ; r eal 
*SEARCH SEARCH FOR IMBEDDED SHOCKS ea SFAKCHRe 

COMMUN SCSHOCKS PICS ,2) ,ULCS Av, RHOL (Se 2) + VQUL OS, 2) P26 S02) 

PeU2CSp 2d, GRRUACS, 2) ePVQUA (Sr ed FYACS, 2), RA(5S 22) 

CUYYON /CSHK/ TANS1,OSHOCK,PSISHK, DELP, 0EL VOU, JLUN, JSHUCK 

1X SHOCK (2), YSHUCK 

COMMON SCINITS NJIJ0C2)-0UMO5) 6 te KL TPRINT,DUMM(S) 

CUONMON SCRNURYS RHOC2SeeveP (23,2) (2502) 6 Y¥(2)$,2),VUU0 232) 

2 -PSI(23-2). R62 be 2) rp YRAR( 23,2) -RMOKAR( 25,2) ,UKAR( 25,2) 

% -VAUBAR(23,2)-RHAR(23,2),PR4IR (23,2) ,PST2AC Le ede lZ¥N6 23,2) 

4 ePBOUND (Ape) ,OXeRNI gp JT ARC, DKXQNDSY,PSIL,YCALCe/SLUPE(2,2),TT(1e2) 

COMMON /CORNER/S NPTSMI Ke ICRNER, CORNER 

COMMON /CSERCH/S ITSERTH,PSHOCK.,JSHK 

COMSON SCOLOPTS CLDPT(4G6),-PTIePT? 

COMMON /CINPUTZ PT(40,2)/-0UMON( 648) 

LUGICAL INSERT,OSHUCK, IPRINT 


IF (XSHOCK (1) .6G.%,0R.XSHOCK(2).€G.%) RETURN 
IF (ISERCH.NE.1) GO TO 7 ——— — 
CALL LSPFIT (PSIC1 JT) eVC1,dT) /NJJ (JT) #PSHOCK » YSHOCK, 1,0) 
]SFRCHse-] 
NJENII(JT) 
DO 231 J=2,NJ 
IF CYSHOCK.LT.Y(J-JT)) GO TO 2315 
23i CONTINUE ca SS 
C* SHOCK IS NOT IN THIS CHANNEL 
RETURN 
2315 JShOCK=<J 
JLOw=J ime A 
XSHOCK (JT) 2x 
“DSHUCK=, TRUE, 
ICRNERS=2 
PITL=PT(JSHOCK91,JT) 
PT2=PT(JSHOCKs JT) 
Let 
JM{eJet 





i ean Ceetret kerr... °°: a re at ae 
Pi(L,JT)=PCIMI,JT) 
VGU2(L,JT)=vOuUCJ,JT) 
VGULCL,JT)=VOQUCIMILAIT) 
U2(LrJTI=FUCIe JST) 
UI(L,-JT)=UCIMI,JT) 
KHOPCL,IT)ERHO(J,JT) eae Shs oa? Fn eS te Gia 
RHOLCL,JTIFRRUC IMI, JIT) 
IF (L,EQ,4) KE TURN 
CALL LSPFIT CYCI+ITIOPSICL,IT)»,NJ + V¥SHOCK,PSISHK,1-0) 
6 TF CIPRINT) WRITE (069) xe YSHOCK 
_t=3 . — ~~ 
GO TO 2355 
7 RETURN 
9 FORMAT (1%,52HA SHOCK HAS BEEN DETECTED AT X= -F9,G,1X,35mY =,F AU) 
| END 


1069 


spec 


*SHO 


prey 


' 


K SHOCK 

SUBROUTINE SHOCK (XK) 
CK CALCULATES JUMP CONDITIONS ACROSS A SHOCK SHOUCK= 
CUMMON /CLUGICS PCONT(2,2),0UAL¢ SLIP,AXISYM,SSTRM,KARPRT,ENDJOB 
1 ,SOLIN(2,2) 
COMMON /CENDRYS RHOC23, 2). P C28, 2) CCS, 2. oe VC OSe ede VU (25,2) 
2 ,PS1(23-2)5 K( 2562) pYRAR (2342), RNORAR( 25,2), UHAR( 2542) 
3 VGUBAR(25¢2) REAR (23,2) ,PRAR( 23,2) oPST2 Lee) e LMN( 2302) | 
4 ePBOUND C222) ep Oke RNIc ITI RO SDXQDSY,PSI1,YCALCeSLUPE (2,2) +TT(1e2) 
COMMUN /CSHRKS TANSE,OSHUCK,PSHOCK «DELP, DELVGU,JLOW, JSHOCK 
1,xSHOCK (2), YSRUCK 
COMMON /CJLBOY/ JLRDY-JLBDY1,SYBOY 
COMMON /CHULD/ RHUMLD (6) / VQUHLD (6), UNLD(6) oP THLO( 5) ¢ PSTHLO (6) 
CUMMON /CSHOCKS P1(5,2),U1 (542) ¢RHO1 (5,2) pVQUI(5,2) ,P2(5,2) ~ 
VeU2(Se 2) oRRUC(5 42) 1 VQUC(5,2) e YDUM(20) 
COMMUN /CINITS NJSC2) JIMMIE CO), 10UMOIL) 
COMMON /COLDPT/ GLDPT(25,2)-OL0PTS(2) ; 
COMMUN /CCHAR/ PCH(1,2),UCH( 1,2) -RHOCH( 1,2) 0 VGUCH(L+2),YCH(1,2) 
LeREMEIsey eae, arene 
CUMMUN /CINPUT/ PT(40,2)-/D0UMINP (648) 
CUMMON /CGAM/ GAMMA(2),GAM162),G4M1(2),GAM2(2) »GAMIQG(2) 
COMMUN /CCRNERZ NPTSM1,KOUM,ICRNER, XCRNER 8 
CUMMON /CXKPR/ XIPRTL,XIPRTO,XITPRI3,KIPRTG 
COMMON /CHH/ JSH+ Ls TANS, U2G+SGN, KPRESS 
COMMON /CFRONT/ ISA&VE 4» YSHK,PSISHK,FRACTN 
COMMON /CPTSLP/ xJUMP ee ~ 
COMMON /CVPDUM/S VPTSLP( 12) : 4 : 
COMMON /CMOC/ ITER, PISAVE,ULSAVE + RHOLSA, VQUISA,YISAVE, JSET 
COMMON /CNTROP/S RHS2 ,RHS,RHSI 
COMMON /CMLIM/ ZM2LIM 
DIMENSION Y2(5-2)-R2(5,2) 
LOGICAL DSKOCK,OUAL,PCONT,AXISYM ~ 
CUNMON /CSHFR/S TFIRST, HUGE 
COMMON /CSHENT/ RHSIHL C4) + RAS2HL(4),SYHOLD( 4G) YENTHL (4) + ISTI, IIIS 
1>PSJT4EN(2),RHSIEN( 2)» RHSCEN(2) 
COMMON /CRESET/ XRESET 
COMMON/GSHRKPT/SHKPRTI 
LOGICAL SHKPRT 


eJHI1e JS THE POINT GELOW AN UPSHOCK AT THE NEW x STATION 
eJSHICKe [5 THE POINT HELGW AN YPSHOCK AT THE OLD * STATION 
-JSHOCK* IS THE POINT ABOVE A DOKNSHUCK AT THE OLO X STATION 
-OSHUCKS .EG. . THUR. KEFERS TO & DUWNeSHOCK © 
POSHOCK= .FG. FALSE. REFERS TO AN UPSHOCK 


TEMPORARTOY BYPASSS PROBLEM WITH PRINT CONTIOL 
KIPRTL=SXRESET 


RRR ORR COC Se cca he ee ae, eS a a Re ee ee 


YLPRTS=EKRESET 
XITPRTG=XRESET 

JF (x,GT.XIPRT4Y) IDUM(6)=1 
JTsJIT 
1121 
TTéws6 


1070 


T.tee JSHOCK IS THE CLOSEST POINT WHICH HAS BEEN SHOCKED, ~ 


LP en a Sey I See ee ae oe 


Amans 


ane ee 


Bane ancticae 


—— ee 





EXPONS1,/GAMIOG(JT) 
PSIREFEPSIT (2eJTI-PSI(1,0T) 


IF (ISAVE.EQ.(23)) 
ISHOCK.EQ,°3 IMLLIES A SHOCK 
BUUNDARY, THUS EVEN THIS IS THE FIWST TIME 
QUANTITIES HAVE VEEN INITIALIZED I N*SHOCK2* 


IFIRST=<3 


ANAND 
> 


NJENIICST) 
LP2zL 42 
1F (JSHOCK,.GT.0) GO TO 80 


A’ COALESCING SHOCK HAS JUST REEN DETECTED, OR 


ie] 
» 


EXPECT TROUBLE WHEN JSHOCK = 1 


JSHOCK = =JSHOCK 
IFIRST=1 
_VGUE SS=VQU(JSHOCK, JT) 


ay yn 
; ea 
» 
| 


r 


Ce seal FIRSTS3a8 
i 80 ICh=0 
IF (OSHOCK) GO TQ 85 

|C*# #*  UPSHOCK 
‘ “JSHsJSHOCK+T 

JSH2=JSHOCK +2 
if L=2 
SGN=1,0 
JKKKSJSHOCK=4 
JJ=JSHOCK 
K=1 


GOTO 90 | 


Cx #** DOWNSHOCK 
t 65 L=1 
JSHSJSHOCKe1 
 JSH2SISHOCKS2 
Kz2 
SGN =-1,0 
JKKK=ZJSHOCK 41 
JJ=JISHOUCK el 
90 LPe=L+2 
fr. OELPERS(ERERIePLtcLrat)~—~COC~C~C<s<C STS 
| OELVGUsVOU2(LeJTI*VOUL(L,JT) 
DEL RHUSRHOC (Le JT) RHUL (LS JT) 
OELUZU2A(L,-JT)SUL(L,JT) 
P2NPLSP2(L,JT)/PI(L, JT) 


401 


aad 


ne 


“ESTIMATE YSHK 
YSHKEYSHOCK #(X*XSHUCK(JT)) *TANSI 


ce 


P1I(L,JT)= P(JSH,JT) 
UI(L,JT)= UCJSH, JT) 
_ RHOL(L, JT) =RHOC ISH, JT) 
VQUI(L, JT) evuUC ISH, JT) 
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HAS JUST KEEN STAETED FROM 


A CONSTANT P 


TRROUGH #SHOCK® ALL 


IMPLIES A SHOCK IS ORIGINATIONG FROM AN UPPER BOUNDARY 


ee oe 


IF (IFIRST.EG.0) GO TO 941 es Phas ee ee 


Ce FIRST TIME THROUGH 

{ 94 U2GS.,95*UL (LIT) 
UCK(1,JST)SUCJSHOCK, JT) 
VUUCH (1, JT) =VQUCJSHOCK, JT) 
PYICHSPT(JSHUCK- JT) a" 
RCHCL,JTIERCISHUCK, JT) 
LP2=L 
IF (IFIRST,NE.1) VGUESS=SLOPE(K,JT) 
JJJJ=3 { 
OLOPTS=OLDPT(JSHOCK, JT) 
GO TO 935 








e 


_C# SURSCKITT 1 OF HOLD BALUES REPEESENTS POINTS ON THE SHOCK 
C*# SUBSCRIPT 2 OF HOLD WUANTITIES REPRESENTS FIRST GRID PUINT ABOVE (HE 
_C*# & DOWN (UP) SHOCK 
94) JJJ=3 
UHLO(1)SU2(LP2,JT) 
VQURLO(1)=VQGU2(LP2-JT) 
PSTHLOC 1) SP SHOCK 
UPMLD(C2)SUCJSHOCK, JT) 
VQURLD (2) 2VQUCJSKOCK, JT) 
PSIHLO(2)=PSI(CJSHOCK,JT) 
_PTHLO(AVEGLDPT(SSHOCK, JT) La : _ es 
ZM2EU2(LP2r JT) *U2(LP2,ITI#(1, +VQU2(LP2, JT) eVOUE(LPA,JT))*RHO2(LPe, 
LIT)/(GAMMO(C JST) &P2(LP2,J5T)) 
PTHLDO(1L)EC1,¢Z242*GOMI (JT) &.5) Me EXPUN®P2(LP2,JT) 
ZM2=UI(LP2,ITI*UICLP2, JT) #(1 e+ VOUI(LP2, JT) *VQUI(LP2,JT))* 
TRROL(LPA, STIS (GAMMA( ST) &PL(LP2,JT)) a eee 
OLOPTS=(1e+2MeeGAML(JT)*.5) eeFXPONSPI (LP2,J5T) 
~— $35 CALE EXtROF CL.c6Hs0=6€=~C~*«*~*”~™~S«S®~=<S<S ;2C;3S Seti‘ i‘ (R;RCS*™”;:;:*”™” a ara eas 
RHS2hL (2) =RHS2 
FHSIRL (2) =KHS) 
SYFOLO(2)=PSI(JSH JT) 
YENTHL (2) 2° (SSH JT) 
COLt ENTROP (1,JSHOCK) 
RHS PHL (5) =KHS2 pape a 
ReSIHL (5) =RHSI 
SYHOLD ($3) =PSI(JSHOCK,JT) 
YENTHL (3) 2Y(JSHOCK, JT) 
Ib CIFIRST.NE.O) GO TO 951 
C# CHECK TO BE SURE #@YSHOCUt*e]S IN THE SAME INTERVAL AS *#*#PSHOCK)*# 
ss  WEFRECSEPSTREOVCYOPSTRUDCET RSG ee eae 
Tt (DSYHLD.GE.9.) PSIMLO(1)=PSTHLO( 2) +, 0001*%SGN 
IF (JKKK,LT.JLHOY) SJJ=2 
IF (CJKKK,GT,NJ) JJJ=2 
If (JJJ.E0.2) GO TO 410 
VQURLD (3) SVOUCIKKK, JT) 
if ~~ URL O03) SUCIKKK, JT) 


cf ee eee 


Se ar i a ee ot 


ee ee 


oe ae 


| 
2 ae ee 








PTHLOC$)SCLOPT(JKKK,JT) 

| CALL ENTROP (1,0KKK) 
RHSPHL (4) =hHS2 
ReSIHL(4)=RHS1 a 
SYHOLO (4) SPSL (Jew JT) ae ee ee ee 7 ] 


{ 
PSIMLO(S)EPSI(JKKK, JT) 
| 
| 








YENTHL(G)SYCJKKK JT) 
Jaoo=1 = GP 
IF (JSH2.LE.0) JADD=0 
IF (JSH2,GE.NJ) JADD=0 
JIIJ=EISS + JAO0 
JstJei 
IF (JADD,NE.0) GO TO 951 
Satine... a i 
} GO TO 955 
951 CALL ENTROP(1,JSH2) 
| RHS2HL (1) =KHS2 
RHSIHL (1 )=RHSI 
__SYROLD(1)=PSICJSH2 JT) 
YENTHL(E)=Y(JSHO ,JT) ‘a 
955 CONTINUE 











iT 
[ IF (X.ULT,XIPRT2) GO TO 1413 | 
} CALL TABPRT (6HRHSIHL,RHSIHL, 18,8) i 
CALL TAAPRT (3HPSI,PSI,40,10) | 
$423 If C(IFIRST.NE.0) GOTO 94a _ ae e | 
410 PSJU=PSHOCK#(1,°SGN*.001) caer 
C* PSIU 1S CHANFED ON & PERCENT BASIS@=MAKE IT LARGE ENOUGH WHEN PSI 1S | 
IF (PSHOCK.LT.PSI(2,1)) PSIU=PSI4N 
c) 
“Ca START OF ITERATION FOR xePS] Une (S.L.VALUE AT WHICH CHAR, BEHIND SH | 
~C* HITS PREVIOUS X*LOCATION 00; Sone ee whee oy a 
942 ICOUNT=0 | 
PSIGH=PSI4 } 
CALL LFIT (PSIKLD, UHLD,JJJ-PSI4, UCH(1+dT) 61-0) i 
CALL LFIT (PSTHLO, VQUHLD,JJJ,PSI4,VQUCH(1+JT)+1,0) \ 
CALL LFIT (PSIRLD,PTHLO,JJJ,PSI4,PTCH,1,0) I 
Pe Pe CCS Cl NAN oe ore lies ee eee oa oa 
944 TS=TT(1,3T) =GAMIGG(JT) *UCH(1,JT) *UCH(1,JT)*(1.+VGUCH(T,JT)« > ie 
f IVGUCH(1,JT))*.5 Ran ae ae j 


PCH(I1,JT)=PICH*(TS/TT (1,51) ) ®®EXPON 
RHOCH(1,J37)=PCH(1,JT)/TS 
IF (X.GE.xXIPRT4) CALL TAHPRT (6HSHK CH,PCH, 12,8) 





“Ce START OF ITTERATION FOR &eYSHKan 
Ca 
i IF (X.GT,XTPRT2) wRITE (61411) YSHK,PSISHK,PSI(1,JT),JT 
94S ISHOCK=0 i 
Quo R2(Ly/JT)=YSHKARCH (1. °RC) 


“Cw USING ASSUMED VALUE UF *##YSHKes, CALCULATE PROPESTIES IN FRONT OF SH 
ISAVE=ISHOCK*#ICOUNT+ICH 

IF CIFIRSTLLT.1) CALL FRONT (PICL JT) -ULCLe JT) -RRVICL JT), vQUICL 
1,JT)) 
ZMLCZUL(LSTI*FUL(L STI RCL. #VOULCL JT) *VQUL (Le JT) ®RMOL(LIT)S 
L(GAMMA(JT)*PL(L,JT)) 


CALL SONSHK (Z2M12,VOULCL JT) + VGU2MX,GAMMA(JT),SGN) | 

Ca 

Ce START OF [TERATIUN FOR ##VGU28e CUSING CHAR, ©=CUMPARE TO Rew VALUE) I 
; 95 vQue(t,JT)=VGUESS 

KPRESS=2 

= 60 TQ ag s Ne ae se Ae 

98 KPRESS=1 — | 








"C*® “USING ASSUMED VALUE FOR **VQU2**, CALCULATE HANKINE HUGONIOT JUMP CO 
99 CALL RH (x-JT) 


60 TO 190 
“Cs CALCULATE **#PSISHKae IN CASE TT WASNT CALCULATED IN **FROUNT#® 
110 RAVG=(YSHOCK¢YSHK)*RC#.S4(1,"9RC) 

MU AVGECULCL JT) FUL (LP2, JT) 8.5 
RROAVG=(RHOL( Le JT) +RHOL(LP2,JT))*.5 
OPSTSSO XK eh#HUAVGRRAVG# ((CTANS#+ TANS] D©VQUI(L JT) =VOUIC(LP2,JT))*.5 1 
1*#UAVG 
PSISHK=PSHOCK+0PSI5 | 


rT 


med 





—V16 If (.NOT,4xISY™) GO TO 117 
|C® SHOCK WILL REFLECT FROM AXIS OF SYMMETRY NEST TIME==AVOID SUNGULSRIT 
IF CYSHK,LT.0.5*YSHUCK)) PSI] SHK="ABS(PSISHK) 
117 IF (PSISHK.LE.PSI(1,JT)) GO TO 120 
IF (PSISHK.GE.PSI(NJ,JT)) GO TO 209 


~ ‘THE LAST TIME THROUGH T | YSHOCK==1 AND THE GAR 
QUANTITIES ARE CORRECTED FOR THE SHOCK, BECAUSE BAR QUANTITIES 


1175 ISHOCK=<1 ; : : 
IF (.NOT,OSHOCK) GO TO 210 { 


Ce ~ SHOCK IS A&A DOGWNSHOCK 





eee _ re 4 





JLOWSJSHOCK=1 


118 IF (PSI(JLOW,JT).LT.PSISHK) GO TO 122 
JLOW=JLON@1 
GO TO 118 





ee | 


iz one) CC ee ee 
122 JLUOW=JLOWe! 
IF (JLOW.EQ.JSHOCK) GO TO 2005 





~ TF (JCOw GE. CISHOCK=1)) GOTO 1300 $45 


C*# SHOCK HAS BROSSED MORE TRAN UNE GRID POINT, PRINT WARNING AND RESET 
IF (SHKPRT) WRITE (6,1425) YSHK,PSISHK, YHAR(JSHOCK=2,JT), 
LPST(JSHOCK 2, JT), JILOW, JSHOCK, JT 
JLOWSJSHOCK #1 
DESTFRE(PSTC2,JT)=-PSTCL, JT) ) e007 
DYE RR=(YBAR(O,JT)*YRAR(1,J3T))#,001 
YSHKZYRAW(JSHOCKe2,JTI+0VYERR 
PSISHKEPSIT(JSHOCK=2,JT)*+DPSIER 


’ 


ee ee 


Ce SHOCK HAS CROSSED A GRID POINT SINCE LAST x#STEP 

130° J=JSHOCK={ ee Sn a 1 eee da SEES SEE TOE BEETS a 
Cc FIRST=1 IMPLIES A SHOCK IS ORIGINATING FRUM AN UPPER ROUNDARY 
ic FIRST TIME THROUGH (ONLY) 


. 


IF (IFIRST.NE.1) GO TO 140 
PHAR(J,JT)=PRAK(JS,JT)*0ELP 5 
VQUBAR(J JT) FV VARCS/ITIDELVOU 4 } 





RHORAR(J+,JT)ERHOBAR(J, JT) #+NELRHO 
GO TO 180 ; 


140 RHOEST=SRHO(J,JT) +0ELRHO 
VESTZUCI,JT) *DELU 
VQUEST=VGUCJ,JT) +0EL VOU 
PEST=P(JS,JT)*P20Pt : 
DXGOSYEOK/( PSI (Jeter JT =PSI(J,JT)) 

145 DELTAP=PEST#ALUG(P (Jel, JT) /PEST) 

147 RHOUESRHOE ST*UEST 
VQUYSVQUEST#R (J, JT) 

CALL ENTROP (I,J) 1 
DP X= (DXNDSY*RHOU®(RHOURUEST*# (VQU(J41,JT) #R(J¢1,3T)“VQUY) eVQUY* 
LOEL TAP) ehHS)/(UEST#RHOUS (PEST #GAMMAC ST) ) 91.) rye Sh ee 

149 PBAR(J,JT)SPEST#EXP(@DPX/PEST) 

150 DVQU="DxXQDSY#RHOURR( Se IT)*#(1,+VQUEST®VQUEST) ®DELTAP=VQUEST*®DPX 
VOQUBAR(J,JT)=(DVQUSVAQUC S/T) ®RHS1)/(RHOUSUEST) #VQUEST 
TSETT(11 JT) &(PBAR( Je JTISPT( Jp JT) ) #*GamMp{aG(JT) 
RHOBAR(S,JT)=PBAR(S,JT)/TS 
GO TO 180 — ’ a 


Se = = aeons pare ne re oe tet 4 


i = — | 


: eee oeerecey | 


‘C* SHOCK 1S BETWEEN SAME TwO GRID POINTS AS IT WAS AT LAST X#STEP 


2005 IF CIFIRST.GT.O) GO TO 180 
J=JSHOCK=1 ; ] 
PEST=P(J+1+,JT)/P20P1 

~ VOUESTEVQU(J41,JT) -DELVQU 

160 DXQDSY=DX/(FSI(CJ+1,JT)-PSI(J,JT)) 


Sn nr re ee Oe ee 2 a 


165 DELTAP=P(J,JT) #ALOG(PEST/P(J,JT)) 1 
167 RHOQUZRHO(J, JT) #U(I eT) | 
VQUYEVOUCJ + ITI #R( Je JT) 1 

} 


C* TEER=99 MEANS CALL FINAL VALUES OF PROPRRTIES AT OND GRIF FOINT 
~  YPRESYISAVE pt igh hed ae pa Se ae eae ag 
CALL ENTROP (1,J) | 
CALL DXOM1 (P( Je JTI,UCI, ST) »RHOCJ,IT) -VQUC I+ ITI +>RO Ie JT)» XOSYZM) 
DPX=XQSYZM*RHUU*(RHOURUC I+ IT) *(VOUEST#R (Stl, JT) VOU) +VQUY® 
{OEL TAP) =RHS 

169 PBAR(J,JTIEPCIeJT)#EXP(@DPX/P(J,JT)) 


me eae a an 


ae 


“170 OVOQUS"©DXUNSY#RHOUER( J, ITI NCL. eVQUCS, IT) *VOUCI, JT) ®DEL TAPS 


IVOU(CJ,JT) ®OPX 
VOUBAR(J, JT) SCOVQUFVGUC J+ JT) #RHSII/Z(RHOUSU( J, JT) #VOUCI, IT) 
TSETTCIILs STIR CPHARC Je JT DSPT (CS, IT) we GaMiagldy) 
RHOBAR(J,JT)=PHAR(J,JT)/TS 
IF (,.NOT,OSHOCK) GO TO 250 

180 CONTINUE | pic Pe eS a Yan Ga gh IN, ES OT TES a a 7 
IF (PSISHK,.GT.PSI(1,JT)) GO TO 420 


;C# SHOCK MUST REFLECT FROM A LOWER BOUNDARY, OR MUST CROSS A SLIPSTREAM 


eeceneerensmeee 


! 
185 U2G=.95#U2(LeJT) 
DELP=P2(L JT) =PI(L,JT) 

KLVCUsCC Lach OCccts.)|.CCCCCSCCCCSCSNRS——C NN —‘é’ | 
DELWHOSRHO2(L»JT)*RHUI(L,JT) 
DELUSUA(L,/ JT) *UL(L,JT) 
P2QPL=P2(L,JTI/PE(L, JT) 

ITER=0 


io 
‘ — 


RESET JPR IN SSFD FUR PRINT 
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aaa eee cette eect 


1st 
192 


195 


C* J1=2 MEANS SHOCK IS CROSSING A SLIP LINE _ 


197 


| ee 


TO0UM(9)sIDUM(6) +1 
IF (DSHOCK) GO TO 195 
IF (DUAL. 4NO.JT.EO.1) GO TO 198 
VGUESS=SLOPE(K,JT) 
L214 
JSHOCKENJJ (JT) 
sNJJCJT) 
JLOMENIS CITI 91 
OSFOCK=, TRUE, 
GO 10 201 


GO TO (200,197),J5T 


Jr=1 
XSHOCK (JT) =XSHOCK (2) 
x SHOCK (2) =HUGE 
ICRNER=-6 
NJ=ENIICJT) 
GOTO Pe 








_C* UPSHOCK IS CROSSING A SLIP LINE 


198 


200 


NUENSICET) 


Jtze2 
ASHOCK (ST) =XSHOCK (1) 
xSHOCK(})) =HUGE 
ICRNER=07 





L=e 
DSHONCKs, FALSE, 

IF (ICRNER.EG.(*4)) GO TO 202 
JSHOCK 21 
Jel ~~ +--+ 
JLOWse1 

JHI=2 
IF CICRNER.EG.(*7)) GO TO 201 





_CR® VGUESS IS SET NEGATIVE TO DIMINISH POSSIBILITY OF FINDING STRONG BRA 


201 


VGUESS=-,02 
YB4R(1,JT)=0, 


TS=PRKAR(J,JT)/RHOKAR(J,JT) 


UBAR (JS, JTIESGRIC(TT CII + JT) @TS)*GAM2(JTIZ (1. + VOUBAR (J, ST) *VQUBARCJ, 


LIT) 

IF IKST=1 

IF CICRNER,EQ.(24)) GO TO 98 
VGUI(L, JT) SvGUKAR(J,JT) 

PI(LeJT)=PRAR(J,JT) 

UIi(lL es JT)SUBAR( JS, JT) 

RHOLCL, JT) =kKROKAR(J,JT) 

IF CICRNERLEQ. (#6) .UR,JICRNER.LEQ. (#7)) GO TO 945 
YSHUCK=YRAR(J,/JT) 
PSHUCKEPSI(S, JT) 
K=2 

IF (PCONT(K,JT).,4NDO.0SHNCK) GO TO $00 

IF (CYSHK,LT.O.) YSHKS*°YSHK 

PTC J,JTI=EPT(J+1,JT) 

OLOPTSsPT(S,JUT) 

IF (SHAPHT) @HLTECoe143L) PTC Se ITIOPT (Jet e dT) od 
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a 





1431 


FORMAT (2x,1 3HPTeAXYIS=SHOCK, °F 16,60,18) 


“Ca APPROXIMATE TOTAL PRESSUKE LOW ACROSS INCOMING SHOCK 


IF (PSISHK,LT.O0.) PSISHK="PSISHK 
TShUCKse1 

ICRNERS4 

GO TO 946 


"Ce START AN UPHSOCK FRUM A TRIPLE POINT 


202 


209 IF (NOT SOSHOCK) GU TO 215° 
Ce IF 


Ce 
210 
evi 


21s 
220 


, &* 


230 


250 
400 


—-—— 


JShHOCKEJLBEDY 
JLOWS=-JSHOCK 

JHT=JSHOCK 

J=IABS(JLOW) 

Ks] 
P2(2,JT)=PBOUND(K,JT) 
SGN=1, 
VQULCL, JT) FVQU2(Le1leJT) 
PLI(L,JT)=Pe(Lo1,JT) 
UI(L,JT)FUeC(Le1-JT) 
RAONL(L,JT)=RHOC(Lo1,JST) 
XxSHUCK(JT)=x 
YSHOCK=YSHK 
PSHUCK=PSISHK 
SYPDY=PSISHK 

GO TO 201 


DSHOCK IS TRUE, SGICJ CANT CROSS UPPER BOUNDARY 
PSISHK=SPST(NJ,JT)*#,99999 
GO TO 1175 
SHUCK JS AN UPSHOCK 


IF (PSISHK,GT.PSI(NJ,JT)) GO TO 215. 
IF (PSICJHI,JT).GT.PSISHK) GO TO 220 
JHI=JHI ol 
GU TU e111 
JHIENSICIT) #1 
JHIT=JHI ol 
IF (ICRNER.EG.(24)) GO TO 400 
IF (JHI.EG.JILHDY) GON TO 400 
IF (JHIZE9.JSHUCK) GO TO 230 
SKOCK KAS CROSSED A GRID POINT SINCE LAST X*STEP 
JeJHI 1 
PRARK(J,JT)=PRAR(J,JT) #P20P1 
VOURAK(S,JTISVUUHAR(I,ITI ¢DOEL VOU 
RRURAR( JeJIT)ZRHUBAR(S,IT) +¢0F LRHO 
CONTINUE 
SHUCK IS KETWEEN SAME THO GRIO PUINTS AS JT wAS 
J=JISHOCK +1 
VUESTZVQUCJ,JIT) #DELVQU 
PEST=P(S, JT) ®P2GP] 
JoJSHOCK 
GO TO 160 
IF (PSISHK.GE.PSI(NJ,JT)) GO TO 185 
JLGneeJHI 
IF LEER GSEs E=8T) 60 TO 420 
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4T LAST 


KeSTEP 


a < 





190 IF CIFIRST.LT.1) GO TO 403 

~ """TANSLSTANS aa 7 
LP2=L 
IF CICRNER.EG,(*6)) GO TO 420 


IF (DSHOCK) GO TO 413 
400S PSKOCK=PSISHK 
YSHOCK=YSKK 





VGUESS=VQUe(L, JT) 
IF CICRNER.EG.(*7)) GO TO 500 
IF (.NGT,AXISYM) GU TO 420 


TM2ESGEUACL A ITI AUA( LA ITI * (Le tVGU2(Le JT) #VAU2(Le JT) IRRHUA(L, STIS 


L(GAMMACIT)*#P2(L,JT)) 
IF (2"2S0.G6T.1.04) GO TO 420 


"Ce  CTHECM TO BE SURE FLOW REMAINED SUPERSONIC AFTER SHOCK REFLECTION 


IF (NOT .SHKPRT) GO TO 4010 
WRITE (6/1424) ZM2SO0 
WRITE (668) P2CLeJT)-Ue(LeJT)-RHO2(L- JT), TS+ TANS 
4010 CONTINUE 
Ce RENET FLOW FUR MACH NUMBER OF 1.02. SAVE OF D VALUE OF VQUe 


OfS= hy CRIs TTi7UL se CeAMNACITIST 5*1.04) 
U2(Le ST TIZSORT(1,04*GAMMA(JITI#TS/(C1,+VQU2(L» ITI AVQU2(L,JT))) 
IFUDGE=1 
P2(L,JT)=P2(L,JT)*#ZM2S0/1,04 
RHU2(L, JT) =Pe2(LeuT)/TS 
TANS=TANS*#2M2SQ/1,04 

“TF CSHKPRT) WRITE (6,8) Pe(lL,JT),Ue(L,Jt),RHUC(L,Jt)¢1S,TANS 
GO TO 420 


403 GPAVG=GAMMACJT) *(P2(L¢ JT) +PCH(1,JT))*.5 | 
VQUAVGECVAQUE(L, JT) +VQUCHCL ITI} ®.S 
UAVG=(U2(L/ JT) +UCH(1,J3T))*®.S 


UAVG2=UAVGRUAVG 





~C* BYPASS SINGULARITY AT AXIS OF SYMMETRY | 
ZMAV2=RHUAVG*UAVG2*(1.¢VGUAVGRVQUAVG)/GPAVG | 

IF (Z2MAV2.LT.1601) ZMAV2=1.01 

~ CTNASSORT(ZMAV2=1.) 

TANS=1,/CTNA 

VQUTAN=VQUAVGTANA 

IF (CABSCVGUTAN) 667.2999) VQUTAN=VQUTAN@, 999D/SABS(VOUTAN) 

"Ce CALC &CH FRUM DY ALONG CHARACT&RISTIC 


—— et pes — 





ROK(1,JT)= YSHK=Dx*(VQUAVG+SGN*ATANAY/(1,°VQUTAN) 
a “SE CRONC i p00 at lecOk) REMCLwtis.0) °° = 

RAVG=(R2(L, JT) #RCOH(1, JT) )*.5 

VQRAVG=VQUAVG/RAVG 


IF (P2(L+JT).GT.(4, *eCH(L, TID) VORAVGEVQUACLeJTIZRACL AIT) 





r 
3 IF (RCH(1,JST).GT. (4. *R2(L,5T))) VORAVGSVQUCH(L,JT)/RCK EL, JT) 
—VaUePf=1, +VQUAVGeVQUAVG 
SUV2P1=SQGRT(VGU2P)1 ) 


DAx]S=CSOUND*OLOR*VQRAVG/UAVG 
CORRECTION TO ALLOW KEGULAE REFLECTION 





IF CYSHUCK.LT..10) DAXIS=SDAXIS#YSHOCK#10O. 


CSUUND=SURT (GRAVG/RHUAVG) ; 
DLGRESORT(OK#DX+ (R2(LeITISRCH(1, 5ST) ex 2) *RC 
Ce 
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f IF (JSHOCK.LT.3) GO TO 650 ] 
GO3S CONTINUE , 7 = er i : am 
PSIGEN(1)=PSI4 
PSIUEN(2)=PSISHK 1 
CALL LFIT (SYRULD,RHSIKL (CISTI) -JJJJS + PSIGEN,RHSIEN, 2,0) 
CALL LFIT (SYHOLD,RHS2HL(JSTI) » JIS Ie PSIUEN, RHS2EN, 2,0) } 
RESLECRHSLEN( 1) #emSLEN(2)) 8,5 
RHS2=(RHSCEN(1) #HHSCEN(2))&,5 
IF (X,LT.xIPRTS$) GO TO 4036 
WRITE (61426) RHSI,RHS2 
CALL TARPRT (OHPSI4YEN,PSIYEN, 676) 
4036 CONTINUE 
VQU2(L,JT)=VQUCH( 1, JIT) <SGN&GPAVG#ALOG(P2(LeJT)/PCH(1,STIIS 
1(GAMMA( JT) *RHOAVGRUAVG2*TANA)@=SGN#DAKIS a <r 
2=SGR*CSUOUND* (RHSI/(RHUAVGRUAVGERUAVG*SQV2P1 ®TANAROX) #(TANA+SGN® 
SVQUAVG) tRESA/SUAVG) ®OLQR 
IF (X.ULT.XIPRTG) GO TO 1113 | 
WRITE (6,8) DAXIS,VQRAVG,VGUESS, VQU2(LeJT) | 
IF CISAVE.GT.O.OR.ISHOCK.GT.0) GO TO 1113 
CALL TARPRT (GHHOULD,RHOHLD,30,6) ~~ 
1113 CONTINUE 
TOL=4KS((VQU2(L,JT)=VGUESS) ) 
IF (TOL.LT..001) GO TO 413 
IF (ISHOCK.GT.10) GO TO 408 
XJUMP=e-,] 
“CALL PTSLP CVGUESS, VUU2(L,JT),ISHOCK,VPTSLP,1.) 
_ 1403 DIRSHK=(VGUESS*VGU1(L+JT))*SGN 
| C* FOR DOWN*SHUCKS, THE GUESS ON vQU2 MUST BE LESS THAN VQUI 
C* FG UP*SHUCKS, THE CONVERSW IS TRUE 
IF (DIRSHK,LT.O.) GO TO 4OU ae ae a | 


———_— 


—a aeSen set appara eatiasiah a 4 


hiccsmacals: 


ae a ay a a - 


_ ee aa —a | 








a a 





“Ce BE SURE FLOW BEHIND SHOCK [TS SUPERSONIC 
DIRSHK=(VGUESS=VGU2Mx) *SGN 
IF (DIRSHK.LT.O.) GO TO 95 
VGUESS=VGU2MX 


shoes oad 


t 





r IF (VGUESS.EG.VPTSLP(1)) GO TO 407 ——e : : 
| GO TO 95 
| 7 panama te samac sameeren ~~ 
4O4U VGUESS=VQUI(L,JT)+SGN#,0001 
IF (VGUESS.EG.VPTSLP) GO TO 407 
| GO To 95 ; 
407 IF (SHKPRT) WRITE(6,1419) 
| 408 IF (SHKPRT) HRITE(O,1420) VGUI(LeJT) ¢ VQU2(Le JT), VGUESS»P2 (Lr JT) 
|Ce 7 hae /; ate =o Pare PV a eee pe ae ee = 


|C* END OF ITERATION FOR s&VQU2es 

413 VQU2(L,JT)=VGUESS 
YSHKC=YSHOCK4 (X=xXSHOCK (JT) ) ®(TANS*#TANSI) #25 
ERROKRSYSHK<YSHKC 

we IF (x.GT,XIPRT2]) wRITE (6419099) YSHK,YSHKC, TANS 
“EF CODOCCRRUNSGreeOChe bu Ter Gia ' "one - Se ag var = eee ee 
IF (ICOUNT,GT.10) GO TO 416 
XJUMPESGN®(Y(JSHOCK JT) “Y(JSH,JT))*.5 
CALL PTSLP (YSHK,YSHKC,ICOUNT,VPTSLP(9) 61.) a. | 
GO TO 945 , 

G16 IF (SHKPRT) WRITE (6,1418) YSHK,YSHKC,ERROR 
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lee END OF TTERATION FOR seyStk ee ) 


"Ce DUNT DO THE CHAR TTERATIUN FHE FIRST FIME THROUGH 
Gil YeC(LeJTIEVYSHKC 
YSHKSYSHKC 
IF CIF IRST.LNE.O) GO TO 110 
GIA DPSTS=SPSHOCKeRPSISHK 


Toe CALC DPS] ALONG PREVJOUS X-STATION 
OPSI1=.5# RKHOCHCL, JT) ®UCHOS,JITI®CRCH( 1, ST) OROHC 1, JT) =YSHK®YSHK) 
PSIGCEPSHKOCK+0PS]T} 

ERRONZSARS( (PST GePSITUC)/PSIREF) 

IF (X.GE,XIPRTY) WHITE (607) PST4+PSTUC,PSHUCK+PSISHK,PSI(JSHUCKsJ 
17) 

IF CERROR.LT..005) GO TU 420 

IF (1CH,GT.5) GO TO 419 

IF (PSJT4C.LT.0.) GU TO 4186 

XJUMP=,3 

C4LL PTSLP (PSI4,PSIUC,ICH,VPTSLP(5) 61.) 

_ TF OC PSTGQLT PSI JLHDY,JT)) PSIUSPSI(JLADY,JT) 

OPSICK=(PSHOCK=PS14) *SGN 

IF (PSTU.GT.PSICNS,JT)) PST4=SPSTONS. JT) 

1F (OPSICK.LT.O.) PSIG=PSHOCK 

IF (PSIG,EG.VPTSLP(S)) GU TO 4195 | 

60 TO 942 


————— 


’ 
eee ee oe 


ahnme 





“Ce DONT TRY TO CONTINUE ITERATION WHEN SHOCK IS SO NEAR AXTS==PS] [TERA 
_C*# TRIVIAL THEN ANYWAY eet ee iste: ne 8 Rae AR cog De 


418 ICHs2 
419 IF (SHKPRT) WRITE(6,1421) PSI4,PSIUC,PSHOCK,PSICJSHUCK+ JT) 


} 
ey ee ey Se Seen 


Cs 
C* END OF ITERATION FUR #ePS]uee 
i ok) ee ee a ers a ee ee a ae ee ee ee a ee gS ee 
4195 IF CICH.GT.1) GO TO 4198 
PSITUSPSHOCK#(1,°SGN*®,05) 
GO TO Que 
4198 JF (SHKPRT) wRITE(6,1423) 
420 IF (ISHUCK.NE.(*1)) GO TO 116 
ro SP SPCERO CLOG ts 
IF €JTEST.LEQ.JSHOCK) GO TO 460 
C# IF SRUCK CROSSES A GRID POINT, THE YePST CURVE IS CHANGED. 
FRACTN=(PSICJTEST, JT) @PSISHK)/(PSHOCK=PSTSHK) 
IF (FRACTN.LT.O.) FRACTNEO, 
DFLVQUEVOUE(L-JTJ-vAUL(L JT) 
YRARCJTEST, JTISVCJTEST, JT) ¢OxeVQUCJTEST, JT) #+D¥*DELVOQUSFRACTN ~~ 
IF C.NOT,SHKPRT) GO TO 460 
WRITE (6e7) YBRARCJTEST,JT),-YCJTEST AST) DEL VQU,DPSIS+PSISHA,YSHK, 
1 FRACTN,JTEST 
P4600 IF (ICRNER.EG.(*4)) GO TO 500 
a CALL MOISC_ F ene 3 ee os to Ney Se 
i (LCL CRE GEOR COMP T TOC fee... Sim mor roam eer eee ee 
$00 CONTINUE 
600 CONTINUE 
IFIRST=SO : 
IF (JLOW,EQ. (#1). ANDO, ICRNER,NE.4) GO TO 610 
RETURN 
610 ITTERS99 





oe oe 


vs a) Sa ton 5 





| 

| 

| 
SFE ee 


| 
| 
} 
i 
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Jsete2 
YiSAve=sv(2,1) 
PISAVE=PI(L,JT) 

ULSAVEZUL(L JT) 

RHOTSAsRRUL (LUT) 

VGUIS4sVQUI(L,JT) 

(e*#eeeCALL FRONT (PISAVE,ULSAVE,RHO1SA,VOUISA) 
F RETURN — ae r ; * 
oS0 IF (OSHOCK) GO TO 655 

GO TO 4035 
655 ITF (PCH(L,JT).LT.Pe2CL,JT)) GO TO 4035 
PCH(1,JT)=P2(LP2,JT) 
__GO_ TO 4035 25 


7 FORMAT (1X,7F12.6,/18) 
B FORMAT (1X,7F 16.8) 
1099 FORMAT (1X,1SHSUKROUTINE SHK=,1S5HYSHK,YSHKC, TANS, 3F 14.7) 
1411 FORMAT (1X,21HYSHK,PSISHK/PSI(1) + JST, SF14,7/15) 
1418 FORMAT (1X,20HKITERATION FAILURE IN SHOCK, 3F14.7) 
1419 FORMAT (1x%,48HNO SOLN IS AVAILAVLE IN CHARACTERISTIC ITERATION ) 
1420 FORMAT (1X,4HHFAITLURE OF CHARACTERISTIC TTERATION@=SHUCK SUK, of 
1,19HVGU1,VQU2.VGUESS,P2,5F14,7) ; r 
142) FURMAT (1xX,47HCHARACTERISTIC ITERATION IN #*&SHOCK*#® FAILED +29HP 
IST4,PSI4C,PSHUCK,PSI(JSHOCK),4F 12.6) 
1423 FORMAT (1x,24HPSI4 IS LESS THAN PSHOCK) 
“4424 FORMAT (1X,61HFLOM WENT SUBSONIC @HEN SHOCK REFLECTEO FROM AXIS OF 
1 SYMMETRY,F 16,6) 
1425 FORMAT (10x%,49HSHUCK HAS CROSSED TwO GRID PUINTS<*HAS BEEN RESET, 
1/p 1 ke 2QHYSHK »pPSISHK,YRAR SPS] -UF 12 .6e LYHILOMs JSHUCK + JT 4 31567) 
1426 FORMAT (10X,13KENTRUP**SHOCK,2F 14.6) 


a ee Ce ee ee ee ee 


a a 


__END 





*OECK SHOCK2 

: SUBROUTINE SHOCK2(x) 
*SHUCK2 SHOCK CALCULATIONS FOR STEP 2 =SHOCK2= 

' COMMON CORNERS NPTSM1,KO0UM, ICRNER, KCRNER 

COMMON SCBNDRYZS RRO (C2362) PC 23862) UC 2Se 2dr VCO deed eVGA 23,2) 


@PST(23,2)6 R(23,2),YROR( 2572) ,RHUBAR(25,2),UKAR(25,2) 


2 
3 -VOQUBAR (23,2) eKRAR( 23,2) ,PRKAR( 25,2) ¢PSTOC 142) e LMN( 2512) 
4 
S 


*TT(1,2) 
CUMMUN /CINPUT/ PT(49,2),0UMIN( 648) 
COMMON /CSHK/ TANS1,DSHOCK,PSHOCK DELP, DELVQUs JLOW, JSHOCK 
te xSHNCK (2), YSHOCK 
COMMON /CSHOCK/ P1(5e2),U1(5,2) 7 RHOL (5,2) VOUI(5S42),P2(5,2) _ 


+PHOUND (2,2) -OX+RNI, TTT» RC, OXQDSY,PSI1,YCALC, SLOPE (2,2) 





Dp UACS 2) rRAUZ( 542) eVQU2(S 42) 1p V26S¢2) RECS ee) 
oa COMMOUN/CINIT/NIS (2) eDUMMY (7), TPRINT?OUM(5) 
CUMMON /CXPR/ XIPRTI1,XIPRT2,XITPRT3,X1PRTG 
COMMUN /COLOPT/ ULDPT(23-2)-0LDPTS(2) 

COMMON /CSHMN/ 2M1,ZM2 
_COMMON/QSHKPT/ SHKPRT 
~LUGICAL SHKPRT 

Cm COMMON /CFRONT/ ISHOCK,/YSHK,PSISHK,FRACTN 
COMMON /CRH/ JSHebL, TANS, U2G,SGN,KPRESS 

COMMON /CSHK2/ IFIRST, II * 2 

COMMON /CXOISC/ XMDISC,xXSAVE,IDISC,MDISCC 


1 +SULID (2,2) 
COMMON /CGAM/ GAMMA(2),GAM1(2),GAMI(2),GAM2(2),GAMIQG(2) 
COMMON /CJLBDY/ JLBEDY,JLBDY1,SYBDY 
CUMMUN /CMOC/ ITER, PISAVEsULSAVE -RHOISA,VQUISA,YISAVE,JSET 
COMMON /CSHKPT/ SHKPT(23,2) 

_COMMON JCRESET/ XRESET(C2) 
LUGICAL PCUNT, OSHOCK, ,IPRINT 
DATA JFUDGE/O/ 


Ce = TURN OFF PRINT 
IF (X,GT,XRESET(2)) XRESET(1)=100, 


aE nn ANSI SS JHE TANGENT OF THE SHOCK ANGLE AT THE OLO X=STATION 
JT=JTT _ 
IF (,NOT,OSHOCK) JFUDGE=JFUDGE4! 

___.____1L1M=0 i red 
l=! 


EXPONS1./G4M10G(JT) 

IF CICRNER.EQ.(27)) 820 
IF CICRNER,EG.(*6)) GO TO 800 
IF CICRNER,EU.(*3)) GO TO 69 
IF CICRNER.EQ.(*1)) GO TO 65 
j 49 JSHSJLOW=1 
aii ISHOCK=0 
} 
| 


—————— 


LES OHUGH AGRON oOr en nn tm re niet en men MTS se nS er are 


L=2 

JSTOR1=-JLUW 
JISTORE=*JLOWFL 

IF (IFIRST.NE.O) GO TO SO 


C*# IFIRST=0 IMPLIES THIS IS THE FIRST TIME THOUUTH SINCE A SHOCK HAS C 


C*# FROM DOWN TH UP 
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COMMON /CLOGIC/ PCONT(2,2),0UAL, SLIP, AXISYM,SSTRM, BARPRT,ENDJOB_ 


ce Ree eae ee eee ee 


———$ 


Ce 


—— 


~~ PSISHKSPSHOCK <a 


YSHK=YSHOCK 


IFIRST=1 

TANS=TANS] 

IF CICRNER,EG.("4)) Lol 
OELP=P2(L,JT)@PI(L,JT) 

DEL VQUsVQU2(L-JT)=VOUL(LeJT) 
“PeaprsP2(lL,JT)/Pi(L, JT) 
Lee 

J=JSHOCK+¢) 

IF (CICRNER.EG.(*4)) GO TO 500 

A SHOCK IS FEFLECTING FROM THE AXIS OF SYMMETRY 
ICRNERZ<8 
VOUJS=VQU(2,1) 
PJS=P(2e1) 
JFUDGE=0 


APPROXIMATE PRESSURE LOSS ACROSS INCOMING PART 
__SHKPT(1,1)=OLOPT(1-1)*-OLDPT(2,1)*SHKPT(1,1) 
~~ TF CSHKPRT) 

1CALL TABPRT (SHSHKPT,SHKPT,46,10) 
GO TO 630° | 


SO JSH=-JLOWe! 


GO To 115 


“Te START OF SHOCK TO CONSTANT PRESSURE ROUNDARY 
60 KPRESS=1 


Cr 


VGU2tL, JTY=ESCOPE(K, JT) =: = Se ee ee ee eee 


| 
bh - 
\ 
! 


fa ae 


sts el age i 


; 





11 Ces ae 
STAT1 OF SHOCK TO SULID WALL 


OF SHOCK 





65 KPRESS=2 $$$ $_______— 
70 K=2 





P2(LeJTI=PKOUND(K, JT) — 
~ JE-JSHOCK Sas Bali Pea ees 
JLOw=J 
SGN=01, 
GO TO 92 


90 JSTORIZJLOW 


JSTOR2SJSSHOCK 
IF CIFIRST.NE.e) GO TO 115 
YSHK=YSHOCK 

PSISHK=PSHOCK 


IF (PCONT(K,JT)) GO TO 600 
~ 6O TO 500 


115 PJL=P(JSTOR1I,JT) 
{ VGUJL=VOQUCJSTORI,JT) 


PJS=P(JSTUR2,JT) | 
VGUJS=VQU(JSTOR2,JT) 


IF (JSHOCK.GT.0) GO TO 122 

AOJUST FLUW AT WALL FOR SHARP CORNER ~ 
_ JSHOCK =-JSHOCK 
_SENIOT) 
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Se ee 4 


' 
| | 
} 
| 

pe ee ee, eS CR ee eee Fe 


— 


nn —_—— 4 


i 





[ Vou2(L, JT) =SLOPE(K, JT) or a 7 
92 IF IKSt=<2 
U2(LeJTI=.98UCI, ST) 
yYSmnzsV¥(J,JT) 
PSISHK=PSI(J,JT) 
| RHOULCL,JT)SRHO(J-JT) 
VQUICL, JT) SVGUCJ,JT) 
UI(Le JT )sUCI-JT) 
PY(Le-JT)=P(JeUT) 
93 VGUESS=vQu2(LeJT) 
{ UeG=U2(LAJT) 
Fr 95) yauett,JT)=VGuESS 
; CALL RH (k,JT) 
110 SLOPE (K,JT)=VQU2(L,JT) 
IF (TIFIRST.EG.(*2)) GO TO 850 
IF (CIFIRST.NE.1) GO TO Ite 
TANS1=TANS 
112 DELY=S(xK-xSHOCK (JST) )*®(TANS#TANSI)*#.5 
_YSHKEYSHOCK+OELY _ A APs 2 ee Ar 3 ail 
CALL LSPFIT (YCA,JT)I»PSICI,ITI,NJIS(CJT) +» YSHK,PSISHK 61,0) 
OPSIS=PSISHK=PSHUCK 
122 DELFP=P2(L JI) -PI(L,JT) | 
OELVOQU=VOU2(L,JT)=VQUL(L,JT) 
P2GPL=P2(LeJTISPL(L,JUT) \ 


| 
| 


a ee Sener eee | 


5 aes ate 





ane 3 


~eSHI= IS THE POINT KELOW AN UPSHUCK 47 THE NEW xX STATION 

-JSHOCK= IS THE POINT RELOW AN UPSKOCK AT THE ULD X STATION 

eJSHOCK]S 1S THE POINT SROVE 4 COwNSHOCK AT THE ULO & STATION 
Teter JSMOCK IS THE CLOSEST POINT wHICH HAS KEEN SHOCKED, 





Aaa 


PF Ce NOT OSHOCK) GO TO 300 
IF (JLOW,EQ. JSHOCK) GU TO 2025 


Cs SHOCK HAS CROSSED & GRID POINT SINCE LAST xSTEP 


J=JLOW 
_OXQOSY=SOK/(PSTCS sdT)ePSI(Jete, JT) 
RHOUSRHUBAR( JS, JT) *#UBAR(J,JT) 
VQUYSVGQUHER (CS, ST) eRBAR (JA JT) 
AP2QP}=ALOG(P20P1) 
DPXK=DYQNSY#RHUUs (RHOUSUBARCS, JT) *OFELVOUFRHAR( Jef,SJT)+#+VQUY® 
LAP2GPL = #®PHAR(C JS, ITIISCRROURUBAR(S/SITIZ(CPRARK(J,JT) ®GAMMACJT) 1.) 
PCS, ITIZPIL*AESORT (PALE 1) ERP (DPX S/PHAR(J,/JT)) 
“VOUCS, JTI=ZVUUIL +S (DEL VGUt CVQUBAR (J, JT) @OPK+RBAR( JS, JT) #RHOUR(1,¢ 
LVQUR4OR( J, JT) *®VGUBARC IS, JT) ) PBA (I, JT) AP 2UP1*U0XGDSY)/(RHOU 
2eUBSLR(J,IT))) 
| YOSeITIZV(CSe JT) =Oxe Sa (1,eFRACTN) *DELVQU 
GO TO 500 


SSS ee ee eee 


— 


— a 


| 2025 TF CIFIRST.GE.1) 60 TO 500° << Ga wee . po Te ee 


bee SHOCK IS BETWEEN SAME THO GRID POINTS AS ITT wAS AY LAST x=STEP 
Ce THE FOIRST TIME TrtkOUGH ON UPSHOCK, AFTER A DOWN SHOCK, IFIRST=1 


_IF CJSHUCK.EG.NJJCJT)) GO TO 500 


Cc “TTR JSHUCK CEG. WJ TOO LUT CORKECY PETC VALUES, wtCause [fF &@ 5 °°» —© 


| 
| 
' 
a a a ee oe 
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‘ce EXISTS, THE OLD VALUES OF P,ETC WILL STILL RE NEEDED IN BNDRY | a 
c SGNN=1. APPLIES TO A DOwN=SHOCK, 
re SGNN=*1, APPLIES TO AN UP=SHOCK 1 
i J=JSHOCK 
2990: \SGNNEDS oo 1s LR : = ; 
GO 10 330° ee ea ea 1 


300 IF (JLOW,EQ.(#1)) GO TO 830 
IF (Ce JLOW) LEQ. JSHUCK) GO TO 320 
CORRECT DEPENDENT VARTABLES TO INCLUDE JUMP CUNDITIONS ACROSS 
THE SHOCK, ; 
 Jz- JO" Shee Set 
P(J,JT)=PUL *SORT(P2QP1) 
IFC JNOT,SHRKPERT ) GO TO 1429 
TF (NOT, OSHOCK) aARITE (6-1428) JePJILeP(J,JT)-PBAR(J,JT), { 
IPRAR(J<1,JT) i 
1428 FORMAT (17,4F14,7) | 
1229 VOUCI IVS VOUUL Ee SeOEL YOU: =€C€~SS:*~=‘“‘“‘“C“‘< ‘<‘<i‘<‘<‘(s;S;SS™~;~; XCPhC~;~CSCS:t””” : <<, 
YO SeITIEVC Se JT) eDx* Se (1 ,eFRACTN) *OELVOU 


an 


hs 


320 Je-JLOWel 
SGNN=e1, 

330 DXGDSY=NX/(PSI(J ,JTI“PST(J-1,J5T)) 
RHOUSRKHURAR( J+ JT) ®UKAR(C JIT) = Dee ewe ee a a Foi 4 
VOUYSVUUKAR (J+ JT) *RBAR(J,JT) ' 
IF CJTSEG 1. ANU J.EG.2,AN0.OSHUCK) GO TO 535 ) 
IF (JFUOGE.LE «4. OND, .NOT.OSHUCK) GO TO B31 
AP2UPLSALOG(P2UPI) 

DPX=DXQDSY #RMUU# (KHUUSUBAR (JS, JT) ®OELVGU*RAAR (Jel, JT) +VGUYSPBAR(J, 
“TST ) #AP2IPLI/(CUAR( I, IT) #RHOUsS(PHAR( J, JT) @GAMMACJIT) #1.) — ey a 
PCI,JT)=PIS#E EXPL. S*SGN IN@DPX/SPHAR( J, FEI 
VOUCS, JT) EVGUJS* .5*SGNN® (VQUHAR (Je JT) @DPXeKBAR (J, JT) #RHOUS (f+ 
LVGUEAR(S/ JT) ®VQUBAR (Sp JT)) ®PRAR( Je JT) #AP20P1 #DXODSY)/(RHOUR 
1UBAR(J,JT)) 

BBB TSETTCT Le JST) RCP Ce ITI“PT (J, dT)) ##GAMIOG (JT) | 
RHO(J,JT) SP (J, JITITS a ee ca a 1 


re Le1,2 1S TRE CURRENT VALUES OF THE SHOCK CONDITIONS. 
LP2=L42 IS TRE PHEVIUUS VALUES GF THE SHOCK CUNNDITIONS, { 


500 LP2=L+2 

P2(LP2,JT)=P2(L, JT) 7 - prcamete g3 
PICLP?, JTI=PL(L JT) 
VUUACLP2,JTTIFZFVUUCIL JT) 
VOULCLP 2, JTIFVGUI(L, JT) 
U2(LP2,JT)=U2(L, JT) 

“ut (uPeé,JT)=uI(L JT) 
RHOUC(LPAr JT) zRKHU (LAUT) 
RHOL CLP Ar JT EWMOL(L,/ JT) 


,C*#® CALCULATE SHOCK INFORMATRION 
5 $30 2MPEUL( Le ITI*SORT CCL +VOUL (Le JT) SVOULCL JT) ) *#RMUL CL JT) 


a 1/(G4MMa( JIT) #PL(L,JT))) : , | 
MASALA JI AS uw EOL eVALA (Le ST) eVQUe(L, JT) ) #kRHOe(L, JT) 





S33 JETABS(JLOM) 


1(GAMMAC JT) #P2(L,J5T))) 


ZMSINSECZMEACTANS@VQUTLCL IT) ) ames (C1 et TANSATANS) *®01,¢#VOQUT(L, JT) 


levaui(t,JT))) 
IF (ZMSINS.LT.1.0001) ZMSINS=1,0001 
GPYT=2,7(GAMMA( JT) o1,) 


—-—- -4 


UOLDPTS(AVEULOPTS(1) #8 (1, ¢GPL 1 #GaMmMa( ST) e (ZMSINS#1,))*##(91,/ (GAMMA 1 


LCST). eC Le MGPLT OC 11 e/2YSINS) 98 (91. ZGAMIOG(IT)) | 


IF (ITPRINT) 
AWRITE (669) Ae VSHK,POCL-JTI-PL(L, JT) 62M2,2M1 
SHKTUL=,001 

IF (27M2,GT.02MLeSHKTOL)) GO TO 640 

1F (2™2,LT.1.) GO TO 750 


_C*# SHOCK HAS CROSSED & GPID POINTe@CORRECT TOTAL PEESSURE 


_C*® STORE CHANGE IN TOTAL PRESSURE ACROSS SHOCK FOR USE IN #"ENTRI Poe 


Ge % 


701 


$50 


Ce A 


TF (JSHOCK ELL J AND ICRNER,GT.(2-4)) GO TO 550 


PTSHKNEPT (Je JT) ©OLDPTS(1) ¢ULOPTS(2) 
SHRPT (Se JT) ESHRPT (Se JTIOPT (Se JT) @PTSHKN 


IF (ICKPR,NE.3) GO TO 701 
IF (2™2,G6T.1.02) GU TU 701 


SE a 4 


SS ee ee 


CKPRES TS THE FIRST TIME THROUGH AFEER FRFLECTION OF SHOCK 
WIASUL(LPS, JT) #UL(LP2,JTI*(1,¢VGU1 (LPC, JT) *#VGUL(LP2,J5T)) 


VQUI(LP2eJTIEVQUC2, 1) 

ULC LP2, JTI=ESGRT(U12/ (1. *VOU1 (LP2, JT) *VGU1 (CL P2,5T) 9) 
PI(LP2,JT)EP(2,1) 

CONTINUE 


ICKPR=0 
EVES STISET SHEN 





TSETTCTI JT) *(P CS, ITISPT (J, 5ST) ) 2 2GAMiQG(JT) 
RHO(J,JTI=REP(Je/JTISTS 

IF (JFIRST.EG.10) GU TU 620 

IF (CICRNER,EGe (7), OR, ICRKNER.EG.(26)) GO TO 810 
IF T#ST=0 

Me; CUGUNde Tees. SeaeoTee so) erase. 
XJS OF SYMMETRY CORRECTION WHEN SHURKK IS NEAR AXIS 
IF (YC JLBDY,JT).GT..0001) GO TO S60 

IF (JLOW.GT.2.UR.,JLUW.LT.(#1)) GO TO 560 

IF (JLOW.EU.2) SGKE1./(P2UPI #3) 

IF (JLOWLEG. C91)) SGKEPQ2UPL an§ 


PCL, STISCP CA, STI AaGaSGKsP(S, ST) Sem ssssssssd 


560 YSHOCK=YSHK 


sae iat 


| 


“XSHOCK (IT) SX 


PSHOCK=PSISHK 

IF (JCRNER.EQ,(*3)) ISHOCK=<3 
TANS1=TANS 

JSHOCK=14BS(JLOW) 


| 
i 
i 
a « 


es a 








Y2(L, JT S=YSHK 
R2(L,JT)=HVe(Le JT) *RO*(1,"kRC) 

IF (,NOT,OSHOCK,OF.JT.LEQ.2) GO TO 700 
DELMS(2ZM1<2M2)/(2M2-1,) 


IF (DELM.GT. 6S) eSAVESK 


2 STORE OLO VALUES OF PRUPERTIES FOR USE_IN RESTART 
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GO TO 700 





USE LINEAR INTERPOLATION ON #LN Pe TO GET NEW P | 


535 JMisJe-l | 
S36 DxXOUSV=DK/(PSICJ,JT)-PSICIMI,JT)) i 


aye 


COLCULATE MACH NUMBER AFTER FXPANSION 


635 VOUT=ATAN(VQUT) 


S FORMAT (1x,3F16.6) 
6 FORMAT (1K,215¢2%,9HVOQUTSP,PT, SF 16.6) 
__7_ FORMAT (1X, S5$HEXPANSION TO CONSTANT PRESS BNDRY,s SHZM,PM, UF 16.6) 


640 JLOW=0 











DELTAPSPRAR(J,JT)®ALOG(PROR(J,JT)/PBAR(JMI-JT)) 1 
DP X= (OXUDSY®RROUS(REGUSUROR(S,IT)*(VIUYEVQUBAR(IMI,JT) ®RAAR( IMI, 

LIT) ¢VQUYe#DELTOP) )/CUBAR( Je JT) ee ROUsS(PBAR( Je JT) *GamMmMa(JT))<1.) °° °  }»}»— { 
IF (J™1,.61.J) GO 10 537 { 
OxOSYM=DXODSY 
DELPM=DELTAP 
DPXM=DPX 
CL ACIS ) ae ms a§ es p 
GU TO $36 aay ce ae — Si ae a oo is 
PC J+,ITIEP( Je JT) *®E XP (5S *# (DP XMeDPX) /PRAR(J,JT)) 

VOUCS,ITIEVQUCI, IT) © (VQUBAR(S, JT) * (OP XM=DPX) ¢RBAR(J,JT) *#RHOUR(1.+ 

VVOUBAR (J, JT) ®VQUBAR(J,/JT)) ® (DELPM*OKXDSYM=DELTAP*®OXQDSY))/(2,* 

ORROUSUBAR(J,JT)) 

60.70 333 ee = : aes a 
IFIRST=10 Pa Tare 

SEE IF JLOw wAS ALL RIFHT 

JSHOCK=1 
JLOWSNJI(JT) 

L=2 
GO FOSS aoe ye a = aes ae ei - | 
VOUTHVQUCJ, JT) +VQU2(Le¢JT)=VOQUI(L JT) j 


IF (SHKPRT) WRITE(6-6) JeJT,VOUT+PC Je JT) PICS, JT) 








GPIGMI=SQRT((GAMMA( JT) +1.) /°(GANMACJTI@1.)) - ; 
Ce SHOCK HAS HIT CUNSTANT PRESSURE BOUNDARY**TURN FLOW THROUGH XXPANSIO 
1D) cals AGUOLMCREME EE oo ae ie ah ah Pe eS OGY Cet re Pa { 
2M2M12=2SQKT(ZMSO*1,) | 
PM=GPIGMIL®ATAN(ZM2M12/GPIGMI )=ATAN(ZM2M12) me ta ey an ; 


IF CIFIRST,EQ.11) GO TO 635 
IFIRST=11 
PM2=PM 4 





ZMSQECOPT CIs ITISE CS, IT) ACC GAMMAC IT) Le) /GAMMACJT) Jel.) e2.7(6 
1GAMMA(JT)“1.) 
GO TU 630 


4 

VUUT=VQUT+PM=PM2? | 

VOUBAR(J,JT)=SIN(VOUTI/COS(VQUT) — 

IF (CSHKPPT) 

YWRITE (6,5) VOUBAR(J,JT)+-VQUCJ,JT)-VQuT : 
| 





SHOCK HAS ENDED. RESINITIALIZE PARAMETERS IN CASE NEW SHOCK: AP 





XSHOCK (JT) =1.E8 
JSHOCK=NJJ(JT) 
IFIRST=) 
RETURN 





7590 IF CICKNER.NE.(#4)) GO TO 760 
C* MOISC H4S BEEN INSERTED TOO LATE, MOVE OISC UPSTREAM AND RESTART 


' 


een PRO AR OT ES 


IDISC=2 
RETURN 
[ 
[Ce MAINTAIN SUPERSONIC FLOW AEMIND SHOCK a eee ew Se ee ees | 
; 760 CALL KESETM (EXPON,LP2,1) 
L GO 10 533 


|C* & SHOCK IS CROSSING A SLIP LINE=*NO CORREXTIUNS ARE NEEDED 
800 JT=1 

_JENIIOIT) 

GO 10 500 








B10 PT(1,2)3PTSHRKN 
SHKPT( 1/2) =SHKPT(J-JT) 
JENJUC1) 

1. PHO OEISPT CROs 8 
SHKPT(Je1)SSHKPT (1,2) 

GO TO 550. 


| 
- 

| 

b 
| 

r 

i 
be 


820 Lz2 
J=t 
p60 10 500 
_C® CHECK FUR REFLECTIGN OKF SHOCK 
630 J=-JLOWe! 
TF CIFIRST.NE.1) GO TO 320 
B31 PCJ, ST)=PC Uti, JT) 
VOUCJ,STISVGUC T+ Ls JT) *eSQRTCR( Je JTI/R(J41, 57) ) 
EP CUPUDGCE NEO) GO T0535 ~~ 


| 
| 


PCJ, ITIEP(JeL JTIAPICS,ITIZET(Sete JT) 

ViLevQui(L,JT) 

VOUICL JTISCVOUL(L AIT) 43.*#VQUCJ,/ ST) )*.25 

UL(Ly JTISSORTCULC LE STISUL(L JT) #VILAVIL=VOUL(LeJITIFVOQULCL JT)) 
—~JSSHOCKE0. ah + eee aS aus ze , 

ICKPRS3 

GO TO 333 


"Ce SHOCK TO UPPER BUUNDARY**CONSTANT PRESSURE OR SOLID WALL 
BSO PCI, JTI=P( Se IT) FPO(L JTIOPL(L, JT) 
Cr . VOUtI nT aveUCuTOrYeVODeIL UL evULItGs.at) CC CSCSSSCSSSC<Cs=‘sSCSCS 
RHO(S, ST) ERHUC Ie JT) #FHU2(L/ JT) =REOL(L, JT) 
if UCSe-ITISUCI/ ITI U2(L JT) eUL(L-JT) 
| VOQUKAR(J,JT)ZvGU( I, JT) 
| KHUMAR CS, ST) =ERHO( J, JIT) 
| UBSR(S,JTISuUCS,JT) 


[I POA ON ARM EH CURUCH wet aaa Lee a ons ee ee a a ee 


C# SET s#JSHOCKe* TO MAKE SURE TOTAL PRESSURE [5 ADJUSTED 
JSHOCK=JLOWEL 
GO TO 500 


8 FORMAT (SFi6,e) cinaage ar = ho Ee km 
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eee 


ae Se oe ee ee 


Se ee ee ae: ee Ce ee ee en 


a nk 


ceae 








9 FORMAT (1X,8HXSHOCK =,F 12,6, SX, RHYSHIICK ZeF 12,6, 5X ,4HP2 =,FI2.6, 
1 3X,UHPL =,F 12.65 3X, 7HMACHO =,FR,3, 5X, 7HMACHI =F K,3) 
ENO 


*NECK SONSHK 
no SUBROUTINE SONSHK(ZM12.VQUI1,THETMx,GAMMA,SGN) 
| *SONSHK CALCULATES SUNIC TURNING ANGLE THROUGH SHOCK 


COMMON /CSHMN/ ZM1,2M2 


CC® JF MACH NUMBER BEHIND SHOCK AT LAST X=STATION WAS SUFFICIENTLY LARGE _ 
C* 00 CALUCLATION FOR MAX TURNING 


C* MUST PRESET vVQU2Mx 
THE TMxX=100,%SGN 
IF (2M2.6T.142) RETURN 


C*# e=THETAes IS THE MAXIMUM TURNING ANGLE SO THAT FLOW BERIND SHOCK REM 


GP1=GAMMA+]1, 

_C* FROM -NSCA 1135, PG 12) EQ 167" ==SHOCK ANGLE SOR SONIC FLOW]= 
SINQKE(GPL*ZM12( 3, -GAMMA)+¢SORT(GRI®(GPESZML2%ZM4}e=2,%615,-GAMMA) 

182124 (GAMMAt9.))))/(4,#GAMMARZM12) 





_C# FRUM L AND R, PG BB, EQ 47===FOR SONIC FLOW BEHIND SHOCK== 
SINCBT=(1.¢ (GAMMA©1,)#,5*#2M12*SIN2B)/(GAMMALZM12*SIN2B=(GAMMAS], 
1)*,5) 
SINK=SQRT(SIN2B) 
_SINBT=SQRT(SIN2BT) 





C* SHOCK ANALE** BETA 
BE TASSTAN(SINK/SORT(1,°SIN2R) ) 
HMTHETIATAN(SINGT/SURT(1.°SIN2BT)) 


THE TA=RETASKMTHET 
THI=ZATAN(VOUI) 
THETMX=THI+SGN*THETA 

THE IMX=SINCTHETMx) /COS(THETMX) 


RETURN 
EN 


\ gomea a a 


' 
' 
| 
j 
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pean: tarnitnlincns 


en cseneinente 


[ES a 














' eDECK SSFDM “7 
SUBROUTINE SSFDM ‘i d 
#*SSFOM SUPERSONIC FINITE DIFFERENCE #eSSFDee 
j COM*ON /CLOGICZ PCONT(2,2),DUAL,SLIPr AXISYM,SSTRM, HAKPRT,ENDJOB 
1 *SOLTO( 2,2) 
CUMMOUN /CGAM/ GAMNA(2),GOME (2) eGAME (2) 4¢GAM2(2) -GAMIUG(2) 
COMMON /CSRUCKZ P3(5S,2)-U1 (5.2) + RRO1 (5,2) ¢VQU1 (5,2) ,P2(5,2) 
V,U2IS, 2d. FRRUS(S re) oe VOQU2(S AF VO(Se2) eRE(S62) ‘ 
COMMON /CSHK/ TANS1-¢DSHOCK,PSISHK,DUMSH} ,DUMSH2, JL, JSHOCK 
1,*SHOCK(2),YSHOCK 
COMMON /CBNORY/S RHUC 23,2) PCO re AUC23, 2d VOCCSp ede VIU( 2502) 
2 +PSI(23+2)> R625,2) ¢YBER (23-2), RHUKAR( 25,42) ,UKAK (23,2) 
3 eVOUBAR (23,2) ,RKRBR(23,2),PRAR( 23,2) ¢PST20 Lebo ZNO 2502) 
a +PROUND (272) -DXpRNIeSTAROCeDOXUOSY,PSIL,YCALC, SLOPE (Pre), TT(1,2) 
COMMON /CINITS NJJC2) + NSIMI C2) >NJIM2(2) -STABIL A Xo XLe TPRINT»OXK2 
1 20xX3,TOUM,OPSI(2) 
COMMON /CINPUT/ PT(40,2) DUC 12) ep PRESS( 4002) ce YIN( 40-2) 7 2M( 40,2) 
rTRETA(40,2) + TANTH(40,2) 
eXLOW(20 62), YLOW( 20,2) + XUP(20¢2) + YUP (2042) eNSTRM(2) ¢NPTSL(2) 
+NPTSU(2) pPUP (2072) ¢PLOW(20,2) ie 3. Pr a ees 
COMMON /CSTOR2/ 0xX1,SGN,11,ITEND(2¢2) 
COMMON /CJLBOY/ JLBDY,JLBOY1,SYHOY 
COMMON /CCRNER/ NPTSM1,K,ICRNER,XCRNER 
COMMON /CATAN3/ DANG 
COMMON /CLSPF/ INTERV 
~ COMMON /CPIZ Pl, TWOPT 
‘COMMON /CNTROP/ EXPOFS,RHS,RHS1 
COMMON /CBITS/ BITS, KLANK 
COMMON /CXKDISC/ XMOISC,XSAVE, TOISO-MDISCC \ 
CUMMON /CUJLBYS/ JLBDYS(2) ; j Nid, | 
COMMON 74 TKEIN/ DUMTKE(40),NTKE ,OUMRL( 21), KPRINT(100),-TIJET 
~~ LOGICAL AxISYM,DUAL,SSTRM,PCONT,BARPRI,ENDJOB, SOLID ee ee tn cae ee 
LOGICAL DSHOCK,SLIP,MDISCC 
OATA KRORYL,KBORYU £283/7,JTPRINT /2/ 
NAMELIST /OUTPUT/ NSTRM,NPITSU,NPTSL, ICRNER,XCRNER,PCUONT, XL, SOLID 


-~-4-——+ 


1 
a 
3 


——— 








Ce VARTABLES WHICH ARE DIMENSIONED ex2 REFER TO LOWER AND UPPER _BOUNDART © 
“C*# OF LOWER AND UPPER STREAMS RESPECTIBELY. 
Len SNS KS) REFERS TO THE LOWER BOUNDARYeeKs=s2 TO THE UPPER BOUNDARY 


ICRNER= 0 

PBAR(1,1)=P(1-1) 

lI=) 

mo OMSS BO sn e Figen ESN Ee aaa a a 
IF (OUAL) SLOPE(2,1)}=VQU(I,2) 

“Ce eJLEDY= IS THE VALUE OF =J= AT THE LOWER BOUNDARY... 





os WHEN A MACHD*SC IS PRESENT+ sJLBDY= IS GREATER THAN 1, 
JLBOY=1 ; 
fj  SROONESILOOVER Pan ee mh SRR es NE 
| Jtzi 
be 110 IPR=IPRINT 
NJ=ENJJOIT) 


NIMIENIIMIC IT) 


__ CALL CNSERV (1). 
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180 IF CICRNER.NE.O} GO TO 181 
It (OU4L) JT=2 e 
179 NPETSMESNPTSL (JT) eo! 
Ko] 
Ir CIEND(K,JT)-FO.1) GO TO 182 
CALL CORNER (XLOW(1,53T),YLOW(1,JT)-PCONT (Ke JT) -XL-1-PC1,JT) 
1 ,PBOUND(K,JT)) 
18e K=2 
NPTSMI=NPTSU(JT) #1 
IF CIEND(K,J1T).FQ@.1) GO TO 175 
CALL CORNER (XUP(1,JT)-YUP(1 se ST)ePCONT(K, JT) ,-XL¢NJIJCJT)-PCL,JT)e 
1 PROUNOD(K,JT)) 
175 CONTINUE | re See ; 
; IF(.NGT, BARPRT) GO TO 1751 
IF (.NOT,DUSL.OR.JT.LEQ.2) WRITE (6,OUTPUT) 
1751 CONTINUE 
IF CICRNER.EO.(#3)) GO TO 2325 
TF CICRNER, EG. Ce1))} GO TO 2323 
176 IF (JT.EQ.1) GO TO 1829 
eens | 7-5 ‘ ; ery 
GO TO 179 
1829 IF (JCRNER.NE.O) GO TO 237 
ICRNER=2 : 





161 Dx=0ke 








IF (0xX3,L1.0X2) OX=DX3 
It (D0x.uT.0.) GO TO 300 
x=ueDx 


Ce ICRNERS=3 SIGNIFIES THE START OF A SHOCK TO A CONSTANT PRESSUEE BOUN 
C® ICkNER=<ad SIGNIFIES THE START OF A MACH DISC CALCULATIUN : 
Ce ICRNEwS=5 SIGNIFIES THE CONTINUATION OF &A MACH DIXC COMPUTATION 


IF (x,LT,(XCRNER=.0010)) GO TO 183 
Dx=xCHNER@=(x=Dx) : res 
X=xCRNER 
IPR=IPRINT 
INTERVsI1<2 





183 IF (NTKE,LE.0) GO TO 184 
~ OOx=,00001 eee SoS Sea 

C* PRINT CONTROL AT EXTERNALLY SPECIFIEC LIST OF -=x"See 
IF (X.LT.CXPRINT(CJPRINT)©00x)) GO TO 184 
DX=xXPRINT(JPRINT) =(x-0Xx) 
IPR=JPRINT 
X=KERINTCJPRINT) 
JERINT=HJPRINT SI 


184 JLBDY=JLBDYS(JT) 
JLBOVYI=JILBOYel 
| NJENIJOIT) 
NIMI=ENJIMICJT) 
i NIM2ENIIMOC IT) 
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IF (OPSI(JT).GT.0.) GO TO 18462 
TF(BARPRT) wRITE(6,1843) DPSI 
184% FORMAT (1%,2F16.6) 
DPSICJTIEPSICArJTI=PSI CL JT) 
1842 CONTINUE 
DxUDSYSOX/OPSICST) 
,C* UPPER BOUNDARY 


| K=2 
[ IF (,NOT,SOLID(K,JT)) GO TO 185 
| IF (SSTRM.ANO.JT.EGQ.1) GU TO 186 


1ce TF SOLID wALL IS SPECIFIED, CALCULATE SLOPE AND POSITION OF UPPER WAL 
CALL LSPFIT CXUPCI JT) + YUP(1, JT) »NPTSUCJT)»X-YBAR(NJI+JT),1-0) 
CALL LSPFIT (KUPC1,JT)-YUPC1, JIT) +NPTSU(JT),% + SLOPE (Ke, JT) e101) 
IF (.NUOT,PCUONT(K -JT)) GO TO 186 
C* UPPER PPESSURE BOUNDARY IS SPECIFIEC 
[ 185 CALL LSPFIT (XKUPCL ee JT) ePUPCLs ITI sNPTSUCIT), K,PHOUND(K,JT3>1-0) 
L -~ = a — = = — = a —- Se en 
186 K=1 
IF. CICRNER.EQ.(*5)) GO TO 188 
C* LOWER BOUNDARY 
IF (.NOT.SULIO(K,JT)) GO TO 187 
IF (SSTRM,AND.JT.EV.2) GO TO 188 


“C# IF SOLID wALL IS SPECIFIED, DETERMINE SLUPE AND POSITION OF LOWER WAC 
CALL LSPFIT (XLOM(1, JT), YLOM(1,JTINPTSLOJT) -¢ X/-SLOPE(K, JT) olel) 
J=1 
CALL LSPFIT (XLOW(1,JT)-YLOW(1, JT) eNPTSLOJT) sXe YBARC J, JT) 61,0) 
IF (.NOT.PCONT(K ,JT)) GO TO 188 
C* LOWER PPESSURE RUUNDARY IS SPECTELED 


167 CALL LSPFIT (XLOW(1-JT),-PLOW( I, JT)/NPTSL( JT), X-PBOUNDUK,JT),1/0) 


188 CONTINUE 


Ci STEP | wheat 
190 CALL STEPI2 (JLEDY1,/NJM1,1) 


“C# RESET NJ IN CASE MESS wAS LOST 
NJENJI CIT) 
NUIMPENIIME CIT) 
NIMZ=NJIM2(JT) 


IF (ICRNER.EQ.L("7)) GO TO 2007 
LE CXLLT RSHOCKCUTY.OR LICRNER LEG teiy) GO FO 2007 3 ~~ po SaaS 7 


CALL SHOCK (xX) 
2007 JF (,NGT,SSTRM) GO TO 2015 


C SSTRM=T IMPLIES THERE IS A SLIPSTREAM (SSTRM) PRESENT 
IF (JT.EG.1) GO TU 2015 i ee aS om 
JT 


SLIP=, TRUE, 
NJM21LENJIJ (1) 22 

CALL BNORY (2+NIM2L,+NJJCJT)) 
t SLIP=,FALSE, 
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[a SL a en ne 


(€ ——_sARFTER RETURNING FROM BNORY MUST RESET JT=2 


JT=e 
GU TO 204 


196 ICRNER=2 
GO TO 202 


"Ce FIRST TIME THROUGH MACH DISC CALCULTATION, OMIY BUUNDAXY CALCLLATIUN | 


2015 IF CICRNER,EG.(=4)) GO TO 202 


"Ce ICKNER,EG.4 KEFERS TO SHOCK REFLECTION FROM AxIS OF SYMMETRY 


C  — EVALUATE UPPER BOUNDADY POINT GY USING CHARACTERISTICS 


IF (CICRNER.EN.4) GO TO 196 
CALL BNDORY (KBDRYL,JLBDY-JLADY) 


Ce _FLOW WENT SUPERSUNIC THROUGH & CUSPe=MOVE MACR DISC FURTHER UPSTREAM 


IF CIDISC.EQ.<2) RETURN 


202 IF (.NOT.SSTRM) GO TO 204 
If (JT.EQ.2) GO TO 204 
GO TO 205 


204 CALL BNORY (KBORYU,NJM2,NJ) 


205 DU 210 JEJLBOY,NIMI 

RBAR( J, JT) = YRAR(CI,ST)*#RE © C1. 2 RC) 

TS = PRAR(S, JT) /RROKAR(J,JIT) _ 

210 UBARK(J,JT) = SURT(CTTICII, JT) =TS) *#GAMe(JTIZ(1, + VOUBAR(J,JT)*® 
1 VGUBAR(J,JT))) 


Cc BARPRT = T IMPLIES PRINT THE BARRED QUANTITIES 


IF (,NOT.BARPRT) GO TO 215 


CALL TARPRT (6H PrRAR, PEAR(1,JT)+-NJe10,0) 
CALL TARPRT (6K UrFAR, UBAR(1,J31),NJ,10,0) 
CALL TARPRKT (OHVGUBAR,VQUR4R(1,JT),NJ,10,0) 
CALL T4RPRT (6H YHAR, YROR(1,57),%JS,10,0) 
CALL TAKPRKT (6h kBAR, KHAR(},J3T),NJ-10,0) 


C1 STEP 2 saene 
Ce STORE OLO VALUES UF e#Pet FOR USE IN @#4NDRY® REFORE TREY ARE DESTROU 
215 IF (CSSTRMLAND.JTLEQ.1) CALL BNDRY (0,0,NJ) 
CALL STEPI2 (JLBDYI-NJM1,2) 
JLUW=0 : ; 7 


IF CICRNER,EO.(96)) GO TO 2026 
IF (XLT. ASHUCK (JT) SR SICRNER EQ. (*1)) GO TO 2027 


2026 COLL SHUCK2 (x) 
JLOn=JLW 


"Ce FLOW WENT SUASUNTC WHEN INSERTING A MACH DISC. RESTART FLOw 


IF (CIOISC.tG.2) RETURN 


Ce JF A MACH DISC HAS JUST KEEN INTRODUCED, STORE NEW VALUE OF JLBDY 
IF CICRNERLEG. (24)) JLKHDOYS(JT)IZJLEDY 
2027 TF CYC JLANY,JT).G1.0.9) GO TO 222 
Ce USE MOC wHth SHUCK IS CLUSE TO AXIS 
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Ricteeas 


Se 





Ly 
2 


2 


aa 


2 


r 


-— 


c 


be 
318 


2 


— 


Ce 


_ 237_O0x2=1.€8 


C2 


IF (JLOW,EQ.0) GO TO 2029 


IF (JLOw LE. 3.AND.JLOW.GT, (-2)) GO 10 222° 7° “e ee ces 


AxIS OF SYMMETRY POINT 
029 J=1 ; 
PCL, IT) = (PCA,ITI#G, © PCE, ITI) #.5353535533 
030 TSHTTCITIe ITI * (PCIe ITISPT (Se JT) ) a *GAMIQG(JT) 
RHOCJ,JTI=ZRPCIJ/ITIZIS 





VOU(J,JIT)=0.0 
UCJ,JIT)=ZSORTC CTT CII, ST) <TS)*GAM2(JT)) 
PHAR(J,JT)=P(J,JT) 
RHOKRAR(J,JT)SRHO(J,JT) 

UBAR(S, JT)SUCI,IT) 

VQURAR(J,JT) =VOUCJ,JT) 





~ Go 1 ses ae Ge eee ne ee ae ae 


222 JeJLBDY 

221 VOUCJ,JTI=FVOUBAR(J,JT) 
Y(J,JT)=YBAR(J,JT) 
PCJ, JT) SPBAR(J,JT) 





U(J, JST) SUBAR (J, JT) 


IF (JeEQ,NJJ(JT)) GO TO 226 
223 IF (JLOW.LT.O) IFIRST=2 
IF (.NOT, OUAL) 6O TO 225 


ace IF (JTLEQG.2) GO TO 224 Or ee en, ee ee a 


JT=2 
GO TO 184 


224 JT=i i ay ; aa ea, 





~——~SOLT6 WALL BOUNDARY —— - Sen 
CONSTANT PRESSURE BOUNDARY 


225 JENJICIT) 
JLBDYZJILBDYS(JT) ~ 
GO TO 2221 

“CHECK GLEGAL CONSERVAL ION =«=~—hSSCssC<C<S;~;‘;3EHhCtCé‘<C;<CS S:=<;<; }S:é‘i i SS! 

220 CALL CNSERV (2)_ 


232 GO TO 233 
START SHOCK TO SOLID WALL 
323 INTERV=I1 
: KP ee ae 
CALL LSPFIT (XUPCI,JT)-YUP(1+JT)»NPTSU( JT) ¢X+SLOPE(Ks JT) -161) 
325 JENJJ(JT) 
JSHOCKseJ 
CALL SHOCK2(X) 
LICRNERZ2 
GU TO 176 
233 IF CICRNER,EQ.(*4)) GO TO 238 
IF CICRNER.EG.(*48)) GO TO 260 








CALCULATE NEw STEP SIXEs Ry AND U 


CALL STPSZE (Ox1,NIJ(JT)) 
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“RHOCJ, JT) =RHOBAR(J,JT) 7 Se ee ee 


ee ee 


| 
| 
| 


| 
| 
| 
| 
| 
| 


t 
| | 
| 
ee ae | ee ee ee ee) es 


| 
| 
| 
ee MSS 


| 228 CALL SEARCH(X) 


C* UPON DETECTING A SHOCK, 
f IF CICRNER.NE.(*2)) GO TU 235 
ICRNERZI 

IPR=]PRINT 

IF (,NOT,OUAL) GO TO 2400 
IF CICRNER.EO.(-6)) ICRNER=0 
IF (JT,EG.2) GO TO 259 

Ox3=0x2 

JTz2 

GO 10 225 


235 


> 
Bene 
238 ICRNER=<S 
Ce 
if PSI(JLRBDY,JT)=SYHDY 
R(JLBDY,JT)=R2(2,JT) 
Y(JLBOY,- JT) 2¥2(2-dT) 
SS a eae 
P(JLBOY, JT) =Pe2(LeJT) 
UCJLBOY,JTIZU2(L JT) 
VQUC(JLBDY,JT)=VvGU2(L,JT) 
RHO(JLBDY,JT)=KHU2(Ly/ JT) 
EXPON=}.,/GAMIQG(JT) 


PTC JLBDYeJTISPCILBOV eo ITIACTICIT ed T) eRHOCILBOY-JTIZPCILBDY, STII e® 


1EKPON 
KCRNEREXL _ 
GO 10 237° 


239 IF CICRNER.NE.(*7)) GO TO 240 
0 a a 
IF (MDISCC) ICRNERS=5 
“Ce UPOATE TURBULENT KINETIC VALUES 
240 CALL VISCOS (NJ) 
IF 
_IF (IPR LT. ITPRINT) GO TO 250 
1PR=0 7 si 
CALL PRINT 
IF CICRNER.EQ.(*3)) GO TO 250 





"CeweeeCALl CNSERV (3) 
250 IF (NTKE,LE.0) IPREIPRet 


— 





SEARCH! SETS ICRNER TO 


CXSAVE.NE.BITS.,AND.¥SAVE.LE.X) CALL RESTRT (1) 


-2 


_ ee eS ee ——— 4 


STORE LOWER ROUNDARYY VALUES IN #JLADY= 


i 
ete 


= - aanaesi 3 - - 


ee ee oe 





JTF 


| 

' 

IF (x.L7T,xL) GO TO 180 
{ RETURN 

ce 
| 260 ICRNER=2 


Cae Bor: pees 


Ce 





Deiakts Ger 5 
300 IF (OUAL) JT=2 
CALL PRINT 
WHITE (6/1802) Ox 


RETURN 


—_— 


SHUCK IS REFLECTING FROM THE AXIS UF SYMMETRY 





: = 
| 


| 
| 
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f & FOKMAT(IS) 

"JBOD FORMAT (Sx, 31RTHE STEP SIZE HAS GONE NEGSTIVE,7+SX,A7HPRORABLE CAG” 
1SkeeFLOW ANGLE IS SU STEER THAT ONE CHARACTERISTIC ACTUALLY GOES D 
COWNSTREAM,7,5K,GH0K =,F 11,7) 


po See ee 


4 4-2-4. 











| 
~~ —- { 
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'sOECK STEPL2 








SUKRKUUTINE STEPJ2(JLBDYI+NJMI,ISTEP) 

1 eSTEPL2 eeSTEPL2ee CALC. EITHER STEP OF MACCORMACK TwO-STEP PROCED 

COMMUN /CNTROPZ EXPUFS,RHS,RHSI 

COMMUN /CHKNORYS RRO 23,2) + P(2br 2d UCAS 2d VC CSe2d er VUU( 2522) . 
2 PSI(2s.2)e R(23,2) 4 YRAR(23,2) -RHUBAR (25,2) pUKAR( 23,2) 
3 -VOUBAR (25,2) ,REAK(23,2),PRAR(23,2)-PSI120 Lee e dMN( 235-2) 

4 oPBUUND (2,2) 60X,RNI,JT»RCeDXGDOSY,-PSI1, CALC, SLUPE (2,2) 
§ ,11(1,2) 

COMMON /CGAM/ GAMMA(2),G4M41(2),GAMI(2),GAM2(2),G4M106(2) 

COMMON /CINPUT/Z PT(40,2)/0UMINP (648) 

CUMMON /CMLIM/ ZMLIM2 


ee 





| l=} 

| GO TO (190,210,310), 1STEP 
| 190 CALL ENTROP (3)NJMI) 

| 

—— 


00 200 JeJLBDYI,NJMI 
C4te ENTROP (1,J) 
H OXGOSYSDX/(PSI(J+1,JT)=PSI(J,JT)) 
‘Ca USE **#LN Pee VARIABLE 
140 DELTAP=P(J,JTI®ALOG(P( Stl, JT) /P CJ, JT)) 
150 RHUUSRKO(J, JT) *UCJ,JT) 
RHOUUSRHOUe U(S-JT) 
VQUYSVGUCJ,JTI#R (CS, JT) 
ZMXOMLSRAOUUS(GAMMA( ST) #P(J,JT) a1. 
VQU2PLEVQUCIe ITP AVQUCI,ITI 1, 
ZM2M1=(ZMKOM141,)* VQU2PI1 





C# CHECK TO BE SURE VISCOUS FORCE WONT ORIVE FLOW SUBSOINC WHEN MN IS N_ 
“Ce eEPISUMe= TS FRACTION OF =PCRIT= TO WHICH sh > IS ALLOWED TO INCREAS 
C* -=PT- LOSS _ 
“C*# NOTE RHS IS NEGATIVE 
(Carer eRHSMIN=eGOMMO(JST)*®,S*Z2MK2M] #(2M2M1=ZMLIM2) #P (Je JT) 
Ceaaeete (RKHS,LT,RHSMIN) WRITE (6,2) RHSpKHSMINAZMKOML A LZMOM],ZMLIM2, 
CeeeegP(J,JT) JST — or na : : ou n Coa 
Caeee FORMAT (1X,6F13.6,214,18HSTEP12*=RHS,RHSMIN) 
“CeaeeeTe (RHS,SLTSRHSMIN) RHS=RHSMIN 
DP X= (DKQOSY*#RHOU* (RHOUU a(VOUCI+1, JT) *R(Je1-JT)-VOUY)+VOQUY 
1*DELTAP)#RHS)/2MxKeMI 
160 PBAR(J,JT)=P( J, JT) #EKP(@DPX/P(J,J5T)) 
~~ VGUBOR CJ, ITIEVGUC Se JT) eOxGDSYeR( Jp, IT) &VGUCPI®OELTAP/UCJS,JTI= 
1VOQUCJ/ JT) *® (DX e4HS1) ZRHOUU 
Yhoe(S,JT) = YOU,IT) * OXevOUCI,JT) 
TSETTCI Ie JT) eC PBARC I, ITISET (Se JT) #*GAMIQG(JT) 
209 RHURAR( J+ JT) =PHAR(J,ITISTS 
RETURN 








Tae a 
| 210 J=JLAOYI 
Fo 2a) UMizJe1 
ei2 CALL ENTROP (2,J) 
OXGDSYZOX/(PSICS, JT) =PSICIMI,JT)) 
216 DELTAPSPBAR(JS,JT)*ALUG(PRAR(J,JT)/PRAR(C IMI ¢JT)) 


ee ee Sere | 


ae es ee ee Coane 





218 RHOUSRHUBAR(J,JT)*URAR(JeJT) 8 § ca ri EIR RE Sl | 
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r RHUUUSRHOU® UKAR(J, JT) ] 
ZMxeMJ=RHOUU/(GAMMA(JT)&PBAR(J,JT))ele - : ; ; 

' VQU2P I SVGUBAR( J, JT) *VQUBAR(J,JT) 1% 
t TMOMLECZMKOML OL, J eVGU2PI 
CaeeeeRHSMIN=eGAMMA(JT)®,S#27MX2Mi#(7M2M]“ZMLIM2)*PHAR( JS, JT) 
“CeaneeTe (KHS,LT,RHSMIN) RHS=SRHSMIN 

VQUYSVQUBAR(JS,ST) #RKAR(SeJST) 

DPxX=(DxXQDSY#RHOUS(RHOUU 8 (VQUYeVQUBAR( IMI, JT) ®RARCIML, 

1JT))+#VQUY*#DELTAP)+RHS)/ZMX2M1 

P( Je JIT)=ESORT(P (CS, ST)#PHAR( J, JT) )#E KP (2, S*8DPX/PBAR(J,JT)) 

VOUC IS, ITIE.S* (VOU Se JT) #VGURAR( J, JT) *VQUBAR(J,JT) *(DPX#RHS1) ZRKAUUU 

LekbARK( Je JT) *VQU2P1*DELTAPADXQDSY/UBAR(J,JT)) 

Vode JT) = CYBAR(S, ST) # YOS,ST) + OX*VQUBAR( J+ JT) #5 

TSETTCLILe JT) *CP (Ie JT )SPT (CS, JT) ) e#GAMIOG(JT) ; 
220 KHOCJ,JTI=P(J,JT)/TS 

IF (J.EQ.NJM1) RETURN 

JeJel \ 

GO TO all 
pC* AXIS OF SYMMETRY POINT 

310 JMi=e2 
J=JLBOVI 
GO TO 212 
END 


| eee 

















| sDECK STPSZE 
ea SUBROUTINE STPSZE(Dx1,NJ) iene 3 ne See aie ie eee Toes ae ae 
| *STPSZE ~STPSZE= CALCULATES STEPSIZE, U, AND R 
if COMMON /CMLIM/ ZMLIM 
COMMUN /CJLBOYZ JLKDOY,JLHDY1,SYADY 
COMMON /SCANOKYS RHUC23r2) PC A8r 2) UCAS eve VC OSr ed, VUUL 25,2) 
2 oe PSI(23r2)e R(25,2) 4, YRAR( 23,2), RHOKAR (23,2) UHAR (2302) 
PF FV AUBAR (23,2), REBAR (23,2), PRAR(23,2),PSI20 142),2MN(23,2)  ~ ies 1 
4 +P BOUND (2,2),0X,RNJI,JT»RCeDXODSY,PSI1,YCALC+ SLOPE (252) 
S -111e2) 
COMMON /CGAM/ GAMMA(2),GAM1(2),GAMI (2) -GAM2(2) »GAMOG (2) 
COMMUN /ZCINITZ NJJC2])¢NJIM1 (C2) ¢NJIM2C2) ¢STABIL ¢ XeXLe ITPRINT? OX2 - ] 
1 ,0x3,1S,DPSI(2) i 
————"COMMON ZCSERCH/ YTSERTH,PSHOCK,JSHK i aes Te 
COMMON /CINPUT/ PT(40,2)2DUMINP (648) 
CUMMON /CSHK/ DUMSHK(5),JLOW, JSHOCK, XSHOCK (2) »OUSHCK 
COMMON/GSHKPT/SHKPRT 
LUGICAL SHKPRT © , 
DATA ZMSMIN /1,22/ 





a 





T 2 tT car f° ae a 


| 
| 
| 
| 


| 
| 
| 


Ee _ Esse Se 
ODTOR=3.14159/180, 
TSCRITETTCII¢JT)/C1.+(GAMMA(JT)=1.)*%,5*#2MLIM) 
ZMLREF= 5.*0TOR s 
ZMLINO="1.€8 

~~ TSE RCH=0 a 

DO 230 JeJLBDY.NJ 

R(JoST) = VCH ITIARG + (CL, = RC) 

TS = PC Je JTIZRHO( J, JT) 

NOSKCK=S0 

IF (1S.GT.~TSCRIT) GO TO 300 
VGUPLEL,¢VOUCJ, IT) *#VOUCS, JT) 

UCJe JT) = SORTCCTTCII,JT)*“TS)*GaMe(JT)/VQUPL) 
ZM2zUC Se JT) *®UC Se IT) MVOUPLERHOC SI, ITIZ(GAMMACJIT)#P(S,ITI) 
120 ZMN(J,JT)=SORT(Z2M2) 
Ce ee7'SMINee IS MIN MACH NUMBER SQUARED AT WHICH A SHOCK CAN BE INSERT 
If (ZM2,LT.ZMSMIN) NOSRCHSE : we a bas 
~— CiWwhksGettcte=)o7 °° +#~  . °° fs 
SGN=-1, = . : i | 
IF (R(Je-JT).E9.0.) GO TO 230 
JJ=Jel 
228 SGN=-SGN 
It (JJ.GT.NJ) GO TO 229 - 

| = SMOPSISSOGNMCPOL( UFC FORO pULIIROTAGEG 0 es 

COTTHE(CTNA@SGN&VOUC Ie ITI SORHOC I, JT) *#UC Ie JT) #RO Je IT) 8 VQUPIL) 

Ox1=SOPSI*COTTH 

IF (DOX1,LT.OX2) DX2=0x1 

r 2e9 JJzJe1 

bia IF (JJ.LT»JLBOY) GO TO 230 Pee ee ee ae ad eT ee 

~ JF €SEN,07%.0.) GU FU cee $= = ~~ a. 





| 
| 
| 
| 
| 
7 
es 
| 








A | ef 








TANMLNE(VQU( Je UTI ACTNA@1.,)/°CTNACVQU(J-JT)) 

TF (XSHOCK(1) «LEX UR.XSHOCK(2) LEX) GUO TO 230 _— 
CHECK FOR CUALESCING CHARACTERISTICS 

ZMLINEZATAN(TANMLN) ee ba 
“TF C2MLINE SGT, CZMLINO@2MLREF)) GO TO 2295 


} 
i 
| Ee een) Ley Seer ee 
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_ *eCUTTHe® TS THE COTANGENT OF THE NNGLE 





DPTODYSABSCPT (SU, JT PT (S,JT)) 
2MLRESSZMLREF 
IF (OPTQOY.LT..001) GO TO 2296 


IN ROTATIONAL FLOW, CALCULATE MACH 4NGLE CHANGE DUE TO TOTAL PRESSUR 

RAISE TOLERANCE ON INSERTING A SHOCK RY THIS AMONUT (TO TAKE INTO AC 

CURVATURE OF CHARACTERISTICS IN ROTATIONAL FLOW) ss 
ZMEL=CPT(SSeJTISP (Se JT) ee CC GAMMAC IT) © 1.) /GAMMA(JT) 91, 
ZM2LEZM2182./(GAMMA(STI@1,) 
TMUREFESUHT(L./(ZM2191.)) 
ANGMURZEATAN(TMUREF ) 
ANGMUZATAN(1.,/C TNA) 
ZMLRES=ZMLREF +48S (ANGMU*ANGMUR) 


2296 CONTINUE 


IF CZ2MLINE.GT.CZMLINO@ZMLRES)) GO TO 2295 
START SHOCK AT INNER MUST LOCATION 
CROSSING IS BASED UN COMPARING THE COTANGENTS OF TwO ADJACENT CHARAC 


MAKE SURE A SHUCK 1S NOT INSERTED BECAUSE A POINT HAS BEEN RESET SUP 
THIS CAN RE A PROBLEM IN LOW MACH NUMBER FIELDS WITH PT GRADIENTS 
IF (NOSRCH.EG.1) GO TO 240 
ISEKCH=1 
PSRUCKE(PSI (Je JT) +PSI( Jel, JT) *.5 


240 OTORT=1,/0TOR 


™ 2295 ZJMLINUEZMLINE 


THETAL=ATAN(VQUCJ,JT)) *OTURI 

THE TAQSATAN(VGU(Je1,JT))*0TORI 
ZMEWLSATAN(L./CTNA) ®DTORI 

ZMEWATATAN(T ./SORTCZ2MN( Jel, ST) &ZMN( Jat, JT) 91.)) *DTORI 





DZMLINS(ZMLINE=ZMLINO) *OTORI 

ZMLRKEDSZMLRES*O TORI 

ZMLINDESZMLINE *OTORI 

ZMLIODSZMLINO*OTORI 

IF (SHKPRT) WRITE (60,1230) Jp THETAL,2ZMEW1,ZMLINO, JJ, THETAC, ZMEW2, 
1ZMLIOD,O2MLINeZMLREO 


GO TO 250 


300 TTGTS=1.,¢(GAMMA(JT)<-1,)*®,S#ZMLIM 


310 CONTINUE 


_THIS &SSUMES SIN(X)=x 


TSSTI(CII,JTI/TIOTS 

PC Je JTISPT(C Je JTIATIOTS# a (et, /GAMQG(JT)) 
RHOUCJ,JTIEP(J,JTI/TS 

IF (JeEQ.JLBOY) GO TO 510 
CTNASSORTI(ZMLIM@1,) 


KEEP CHARACTERISTICS FROM GOING DUENSTREAM AFTER KESET="KEEEP MACH A 
CALC COMPLEMENT OF MACH ANGLE 
~~ VSETS,5#SQRTOCCZMLIM|1.)/72MLIM) a er pit a 
TF (SRRKPRT) WRITE (6,301) Se ISHOCK,VSET/VQUC Je JT) Pe VOUCJo1 6 JT) 
SET VQU SO THAT MAxh LINES APRE PAEALLEL 
AKSVZAKS(VUU(JeJT)) 
IF (AKSV.GT.VSET) VOUCJ,JTIZVSET#AKSV/VOQUCS ST) 
VQUP1 = 1e*VQUCJ,JT) #82 


1100 













UCJ2IT) & SORTCOTTCIIT,JT)=TS)#GaMe(STIZ/QUPL) 
IFC SHKPRT) WRITE CO, S0LII+-ST UCI e JT) PCIe JT) ep RHOC Se IT) LM2 
ZM2=Z2ML IM 

GO TU 120 
230 CUNTINUE 

RETURN 





pli peeinatcnaons 


Y 


301 FORMAT (20m FLOW WENT SUBSUNIC AT J =, 13,4HJT =, le,11HU,P,RHO,lMey 


14F 10,6) { 
1250 FURMAT (Ju, 2RHCHAWACTEXITSTICS HAVE CONSSED+/,10X,20KANGLES IN DEGR | 
16S eek LGHTOPR GRID POINT, Sk, 5nd =,13-10h THETA =,F10,4,15H | 
2@ MACH ANGLE 3,610,413» THETBeMY =,F 10.44 eeke LTHUOTTUM GRID PO | 
L SINT, 2x, 3HJS 2415510 THETA =,F 10,4, D2 oe ca 15H _ j 

4 MOChm ANGLE =,F10.4,1 5m THE TAPMU =,F10,4e/, 
S2x, SSHCONVERGENGE HETREEN CHARACTERTSTICS,»F10.4,20H REFERENCE CA | 

oLUE 7F10.4) 

| END | 
! 
& = eS te tne OE ee RSE Oe 
| 
| 
if 1 


’ 
—— 


| 
| 
| 
| 
| 
| 
| 





SS 





aaah mas ae aaa Cac 





’ 
| 
{ 


*DECK TKESHK 
: SUBROUTINE TKESHK(LOCATE,-K) : ; 
*#TKE SHK eo TKESHK CALC TURRULENCE AMPLICICATION ACROSS SHOCK 
DIMENSION SPURAT(16),AMPUFE (16) 
DIMENSION ORHS(3,1) 
COMMON SCRNDRYZS RHOC23,2)0P 02562) UC 28,2 re VC 2See ve VOU 23,2) 


2 oPSIC23-2)- K(23,2) pYRAR( 25,2), RHOBAR( 25,2) p> UHAK (23,2) 
BY VQUBAK (2372) eRBAR( 23,2) ,PRAK(23,2) PSI2( Lye2),c2MN(2302) 
pPBKOUND (272) DX eRNTe ITT ARE DXQUSY, PSII + YCALC, SLUPE (2¢2) 

f Soe hie haa) 


{ CUMMON /CGAM/ GAMMA(2),GAM1(2),GAMI(2),GAM2(2) -GAMIN2(2) 
f CUMMON /CVISHK/S A2(3,1)¢A103-1)/BETAC($,1)-BETAICS, 1) 


[ COMMON /CTRIOITZ CORFL (46),-COEFC (46), COEFR(46),RHS(46) 
ies COMMUN /CPBULIZ A(G6+1),ALPHAC{ 1} ,BETAC4Or 1+ GAMM(46,4), a 
{ t DELTA(46,1) = 


COMMON: /CENOS/ JSTART+ JEND 
COMMUN /CSHK/ TANSI,OSHOCK,PSISHK,/DELP,DELVOU, JLWW, JSHK 
1,*SROCK(2),YSHOCK 
COMMON /CSHOCKS PI1(5,2),U1(5¢2)¢RHO1 (5,2) -VGU1(5,2),P2(5,2) 
Flot secseRhOel ovale VauolSe2veveloneleRelsne) Ae NT Sey 
COMMON /CSTUReS OXt, SGN TI, 1END( 2,2) 
CUMMON /CINITS NISC2)NSIME C2) -NIIM2 CO), STABIL ¢ X-XL, ITPRINT, DX2 
i 1Ox3,7S,DPS1 (2) 
COMMUN /CJLHYS/ JLBDYS(2) 
COMMON /CTHETA/ THETA, IT 
~~ COMMON ZC THRESH RS, ES, SGRTES, ESI,UJ,2MU ,2MJET 
COMMON /CCRNERZ NPTSM1+KOUM, ICRENER, KCRNER 
COMMON /CXDISCZ XMDISC,XSAVE,IOISC,/,MOISCC 
COMMON /SCRFELCT/S IG0-I1CHNG,ISIGN 
COMMON /CTAEPRA XTRKEPR,XTKESH, XTRKESE 
LOGICAL ENTRYI1,0SHOCK,MOISCC 
wT OATA ENTRYL Z.IRUE Ss ISHUCK Jei7 
DATA SPORAT,AMPOFE S3, 63 e3dr 3 cOT elu rds ddr l2eble Ser Sadbedeb7e 
i 1 Qed SSMS Tr Se ded oe Feb eGerlerl Obs tel eleetilseSs fort. aly 
2 Leder L ede hod dele S4oh eo S45ol eo SUr le ddr hy $2501. 352/ 
JOUAL SO 
JTsJTyT 
200 IF (XLT. KSHOCK (ITV) GO TO 6606 ~~ 
JF (LOCATE,NE.$) GO TO 230 
"C*# SHOCK 1S FEFLECTING FROM A TRIPLE POINT 
JLBOYLSILROYSE ST) 4 
ZMNORMEIMN(SLBOY LE JT) #42 
L=3 
ALCL KysAT({,K) 
GO TO 44g 
230 L=1 
IF (JtLwa,LT.0) GO TO 300 
C* OOwNSHOCK 
250 JiweJtww 





> alate cai? a 


251 LSH=1 
ISIGNS1 
SUP=0, 
SOOwNSt, 
GU TO 400 
Ce UPSHCCK —— 7 
$00 IF (IGU.Lf.1) GO TO 2600 
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es 


r= 


ee es ae? Cee | 


ce eee Sees aa 


"C*# L=2 STORES SHUCK JUMP AT OLD x=STATION 

(C# L=1 STORES SHOCK JUMP AT NEw K=STATION ; 6 

C* LOCATE=1 FOR NEW xeSTATION*“40JUXT COEFFICIENTS,ETC 
LC® LOCATES2 FOR OLD X=STATION**CALC DFHS BEFORE OLD COEFFICIENTS ARE D 


_LSH=e2 

JlLwe-JLWwW 

ISIGN=-1 

SuP=1, 

SDOWN=0. 
400 JADJUS=0 
TF (JLOWLEQ. 3. AND. JSHOCK EQ.4) ICHNG=1 
IF (JT.EQ.2) JADJUSENJI(1) 
JLOWSJL We JADJUS + JDUAL 
IF (JSHOCK.EQ.("1)) JSHOCK=JLOW 


: eee 





-C*# eZMNORMe IS THE MACH MUNBER MORMAL TO THE SHOCK 
Ce *AMPOFE= IS THE AMQUNT BY WHICH THE TKE IS AMPLIFIED BY THE SHOCK 


Cs rea 


Sol et 


C* FIRST TIME THROUGH, MUST CALC A2 AND Al 


~~ GG0 SPEEDS (GAMMA(JT) 41.) #2MNORM/ (2, + (GAMMA(JT)=1.) ®2MNORM) 


cs STORF NEW VALUES IN L=2 LOCATION FOR THE NEXT TIME 


“Te =SPDRAT~S YS THE RATIO OF NORMAL SPEEDS ACROSS THE SHOCK 


T# “SHOCK HAS CROSSED A GRID POINT a A SS A Ta a ge 


Bet ee OE sO es Pe eg ee ee eee a ae ee 


IF (LOCATE.EQ.2.AND.,NOT.LENTRYI1) GO TO 2000 
ENTRYJ=,FALSE, 


JSMI=JSHOCK*ISIGN=JDUAL 
AL(L,K)=A(JSSMIL,K) 
ZMEULICLSH ITI RUICLSHe ST) &(1,.4¢VQU1 (LSHe/JT) *VQU1(LSHeJT)) ®RHOL(LSH 
1,JT)/ (GAMMA(JT)*#P1(LSH,JT)) 

ZMNURMSZMa(VOULCLSH, JT) =TANS1I )e2 
ZMNORM=ZMNORM/(CL,4VQUL(LSH, JT) ®VGULCLSH, JT) )*#(1,¢TANSI*TANSI)) 
IF (CZMNARM,LT.1.) ZMNORM=1, 


oe _ _ _ = — — 








CALL LSPFIT (SPDRAT,AMPUFE,16,SPEED,4MPLFY+1,/0) 
AC(L,K)=41(L+K) *AMPLFY . i Narre | 
IF CX .GT ATKESH SAND. XLT. XTKESF) 

IWwRITE (6,1) JLOW,JSHOCK,AL(LOK),-A2(L,K) . er S 
IF (JLOW.EG.4.AND.OSHOCK) ICHNG=3 

“TF UJLOW.EG. 3, AND. .NOT,OSHOCK) [CHNG=3 
IF (JLOW.ZEG.4.AND..NOT.OSHOCK) ICHNG=0 

IF (xX,GT.XTKESH.AND.X,LT.XTKESF) CALL TABPRT (4HDRHS,DRHS, 3,3) 
IF (LOCATE.EQ.3) RETURN 


a Sen ee — —____—__—___—_—_+ 





GO TO 3000 


1000 AAAA=ASLPHA(TI,K)aDy¥eTHETA* S/(DPSI(JT)*DPSICJT)) 
IF (JLOW,EG.JSHUCK) GU TO 1400 








{ 
JzeJLOwel 
DAK=AQ(L+K)“AL(L,K) | 
DC R=-AAAAR(HETAS(L,K)=RETAL(L,K)) 
CUEFR(J)=COEFR(S) DCR : iia 
COEFC(J)=COEFC(J)4+0CR 
~ RHS (J) SRHS (J) OCUFF RC J) &OAK+ORHS(3,K) 


1103 





J=JLOw 

OCL=DCR 

COEFL CJ) SCUEFL (J) *0CL 

COEFC(J)SCUEFC( J) -0CL 

RASC J)SRRS( J) #¢DKNS( AK) @COFFL (J) *®DAK 

1F (JLOW.EY.3) GO TO 1350 
1290 CONTINUE 

J=eJLOne! 

RHS(J)=ERAS(J)*ORHS(1-K) 
1300 JSRUCKSJLOW 

RETURN 


/C* SHOCK IS NEAR AXIS OF SYMMETRY = 
1350 RHSCILOW)FRHSCILOW) +DAK a (COEFL OJ) *0CR) 
GO TO 1290 





| 
_C#  SHUCK REMAINS BETKEEN SAME TwO GRID POINTS | 
1400 J=JSHOCK*ISIGN | 
CUEFC(J)=COEFC(J)+DCER ey ies eee ; z| 
| 

+ 








COEFR(J)=COEFR(J)=DCR*#SDOWN | 
COEFL OJ) =COEFL (J) -0CR*SUP 
RES (J)=RHS( J) #DKHS( 26K) 4 (COEFR( J) *SOOWN+COEFL (J) *SUP)*DAK © 
OCR=eAAAA*(HETAQ(L,K)“BETAI(L,K)) 
DAK=D2(L+K)=AL(L/K) 
J=JSFOCK : 
~ CUEFC(S)=CORFC(S)-DCL 
CORFL (J) =COEFL (J) +0CL*SOOWN | 
COEFR(J)=COEFR(J)¢DCL*SuP ie 6 o> al 
ReES(J)=SRHS(J)*DKHS( 1,4) = (COEFL (J) *SDOWN+COEFR( J) *® SUP) ®DAK | 
DCL EeAAAA*(BETAC(L,K)@bETAL(L,K)) agin | 
DCL=0CR 
Ban ek i On Se eee ea a ES ae ea ph wa eg ee 
C*# MUST CGAL, ORHS BEFORE UPDATING VOEFFICIENTO 
2000 AALL=ALPHA(II,K) *#OKe (1 .-THETA)#® S/(DPSI(C JT) *OPSICJT)) | 
IF (JLOW,EQ.JSHOCK) GU TO 2400 
DCL= AAAAL(RETAC(L,K)-BETAL(L,K)) 
OCR=DCL 
DAR=A2(LeKI=ALCL,K) 
ORMS(3,K)=0. 
J=Jtow 
J1=J=-JOUAL 
o=(1.°THETA) *#0x 
JiP1=s1+1 
Ik (J1.EG.JAOJUS) JIPL=JI+o 
ORHS( 2, KI=CL PM CCOEF ROS) #0CR) Re (DEL TALS1,K) *DDEL)) #DAK+DCRe(2,% | 
1 ACSLeteK)eS.eAC IT KR) FA(JTP1,%))¢ae (DDEL*A(J1,K) +0GAM) ; ; | 
J=ILCwel 
Ji=J*=JOUAL 
| JiMisJiel 
JF CJIMLEO.JADJUS) JisJies 
ORHS(1,K)=DCLAEACJIMI (RK) #0CL *OAKFCOFFL( JS) *OAK@DCL*A(JI-K) 
2300 RETURN 
2400 J=EJSHOCK*ISIGN 
J1=J-JOUAL 


t OCh= AAAA#(HETA2(L,K)@RETAI(L,K)) ae a EES, Ua ee ee ee 














— ee ee EO | 





OCL=DCR 
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OAwK=Ae(LK)SAL(L,K) 
JILSJSI*¢ISIGN 
ORHS(2,K}=OCRA(ACIL AKI @9A(J11,6K) *DAK) = (SDONN*COEFR (JS) +SUP*COEFL(J)) 
1*04K 
J=JSHOCK 
JrsJeJOUAL 
JIL=SJL-1SIGN = ; 
DRHS (1, =DER#(CAC IYI, KA TI,K) +DAK) + (SDOWN*COEFL (J) +SUP*COFFR(J))¢ 
L 1*DAK 
GO TO 2500 
"Ce FIRST TNIE THROUGH SLNCE A MACH DISC HAS BEEN INSERTED 
Ce I1GO=0 TS FOR DOWNSROCK 
“Ce  1GO=1 IS FOR CUNTINUATION OF UPSHOCK 
Ce 1GU=e2 1S FOR START OF UPSHKOUCK IN PRESENCE OF MOISC 
“Ce 16053 IS FOR START OF UPSHUCK 
2600 JiLwteJLwA 

IF (LOCATE.EQ.2) GO TO 251 
eee 1 eee = 

IF (MD1SCC) IGO0=2 

GO TO 251 





C*# CALCULSTES JUMP CUNTITIONS IN BETA,DELTA, AND GAMM 
$000 GC=32,174 
ZUVEZMEKECKD 
SQRHTE=SORT(A20L,K)) 
REYTSRHOS(LSH, JT) *ZLT#SORTE®SORTE S/S (ZMU*US) 
D=1,+.2*%. SBO*REYT 
RUYSRRDA(LSH, IT) *U2(LSH, JT) *&R2(LSH,» JT) *#R2(LSH, JT) 
JSHSISHIDCK = JADJUS=JDUAL 
JSMISILWATSTGN Nay A Sn 
IF (JSMI,LT.1) JSMIs1i 
Ce SPECI4L CASE FOR SHOCK REFLECTION FROM TRIPLE POINT 
IF (1G0,690.,2) JSH=JSHel 
IF (JSH.GT.NJJ(JT)) JSHENJJ(JT) 











C® CORRECTION FOR CASE WHERE PSISHK IS VERY NEAR PSIC(ISH-HT) 
~~ “OP SYSHSABS (PSI (JSH, JT) =PSISHK) = 
IF (OPSYSH.LT. C6. S*OPSI (CST) ) CAND. USH.LIENJJOIT)Y JSHEJSH*+ISIGN 
IF (JSH.LT.1) JSH=1 
IFC USH EQ. 1 -ANDO.PSIC E22) EQ .PSISH*) GO TO 596 
OUNDSY=(UCSSHe STI SUCCLSH AIT) IS CPSI(ISHe JT) MPSISHK) 
GO TO 397 
396 NJJTENIS CIT 
| OUNOSY=(UCNIST 6 1) eU2(LSH,2))SCPST (NIST £1) ~=PSISHK) 
397 CUNTINUE 
OUGDSY=OUQDSY*DUARDSY 
ZMUTSZMU®SARREYT 
BETAP(L»K)=ZMUSDARUY 
GAMMA SRUY a OURS yr *2hMUTHE JIT eUSeul sae 
DELTA2te2MU SD 82 S9/(RRDA(LSH/ JT) *UA(LSH, JT) *#Z2LT*#ZLT) 
IF (X.GTXTRKESH,AND.X.LTXTKESF) GO TO 700 
701 CONTINUE 
SORTESSQFTCALICL,K)) 
REYTSRHOL(LSH JT) *ZLTeSQRTE®SQRTE SS (ZMURUS) 
DEL. .c*, SHHMREYT j 


‘as 
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“RUYERHOL(LSH, JT) *UL(LSH, JT) 822° SH, JT) *R2O(LSH, JT) 


C* CORRECTION FOR CASE WHWRE PSISHK IS VERY NEAR PSI(JSMI,JT) 
OPSYSH=ABS(PSI(JSML,JT)-PSISHK) 
1F (OPSYSH.LT.(.3*DPSI(JT)).AND.JSM1.GT.1) JSMIEJSMI©ISIGN 
IF (JSMI.GT.NJJCJT)) JSMIENIJS(OJT) 
DUGNSY=CUL(LSH, JIT) SUCISMI JT) A CPSISHK@PSI(JSMI,-JT)) 

~~ DUBNSY2DUGDS Ys DUGDSY : oe 

ZMUTHLZMU*® e2eRREYT 

BETAY(LsK)SZMU*D*ERUY 

GANN{=RUY*DUGUSY*ZMUT#E JT *US eUd 

DEL TAL S=2MU8D82 SO/(RHOL(LSH, JT) *UL(LSH, JT) #2LT*2LT) 

TF (X.GT,XTKESH. AND. X.LT.XTKESF) 

TWRITE (Are) OUGDSY,Z2MUT,BETAI(L,K),+GAMM1,DELTAL,RUY. sd 

DGAMSGAMM2eGAMMIL 

ODEL=DELTA2=DELTAI 

| $00 GU TU (1000-2000) ,LOCATE 


es oie 


6000 IF (JT.EQ.1) RETURN 

, 6000 | Qe) RETURN 
JOUAL=1 

| JT=4 

t GO TO 200 





700 WRITE (6,2) DUQDSY,ZMUT,BETA2(L,K),/GAMM2,DELTA2,RUY 


~ 2ePSISHK 
WRITE (6,3) JSH+JSM1,JOUAL, JT» LSH,UI(LSH, JT)» UCJSM1,JT)»PSISHK 
2e/PSI(JSM1,JT) 
WRITE (6,2) UC SSH LE, JT),UCISH, JT) -UCJSH*1,JT)-UCJSHt2, JT), 
LU2(LSH,JT),UICLSH, JT) 
GO TO 701 





1 FORMAT (1X%,6HTKESHK,216,2F 20,8) 

2 FORMAT (1x%,6F 20,8) “ For ; irs 

3 FORMAT (Slo¢eihJSH, JSM1i, JOUAL,JT»LSH,/,8F14.7,11HU,Ue-PSI,PSI) 
END 








f 
| 
-}—-—__— —-_-—_—-— ----- -— heb paperanian 
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, ee 


WRITE (6-5) JSH+JSM1-JDUAL ,JT»LSHeUC ISH JT) U2(LSH, ITI cPSICJSSHe JT) 


[SS ee ee ee ee 


r 


_*#DECK TRIDIA 


_*sTRIOIA 


SUBROUTINE TRIDIA(CJ,NN) 
SULUTION OF 


CUMMON /CTRIDIZ A(46,3),8046) 


THIS ROUTINE FINDS THE SOLUTION OF A TRIDIAGONAL SYSTEM OF EQUA 
COEFFICIENT MATRIX - 





TRI@=OLAFONAL SYSTEM OF EQUATIONS 


ae 
| 





Ce 

"Ce TRE MATRIX =A~ CONTAINS THE TRIDTSGONAL 

C* TRE MAYRIX ©K= CUNTAINS THE RHS VECTOR 

TCs THE SIZE OF THE MATRIX IS (NN#1)XONNO@1) 

| 

r ACJ, 3)2ACJ,38)/A(Je2) 

{BC DEB CJ) ZAC, 2) Se = 
L JPt=Je} 


T 


NAMISNN@} 

DO 20 N=JP1,NNM} ; 
ACN, 2)=1,70A(N,2)-A(N,1)*#A(NO1,3)) 
&(N,3)=A(N, 3) *A(N,2) 





20 BC(N)=(RON) “ACN, 1)*B8(NO1L))&ACND2) 


a a 


BOCK SUBSTITUTION 


_C* STORE SOLUTION VECTOR IN RHS VECTOR LOCATION 


“300 CONTINUE 


a 


N=NN 





260 IF 
e70 N=Neof{ 





A(N,2)=1./7( ACN, 2) eB(N, 1) *A(N=4e3)) 
BCN)=(B(N) =A(N,1)*B(N01))*#A(N,2) 
(NeJ) 300,300,270 


BC(NJ=SBCN) ©AON, 3) #6(NO1) 
GO TO 260 





RETURN 
END 
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r 
#0ECK 


*VISC 


Ge = 
4 Cer - 


‘cx § 
C+ T 


1C# F 
100 


eeTKERD Yee TS STORDO IN TERMS OF TURRULENCE INTENSITY 


Cc 


te 


1Ce® NOTEe= -TIJETS MUST BE READ IN FROM JETMI Xe= THEN CONVERT TO EJ 


Os CONTROL ROUTINE FOR TKE EQUATION 

CUMMUN SCTHETAS TRETA,II 

COMMON /CINITS NISCOVNIIME C2) -NJIIMA (A) -STARIL» Xe XL, ITPRINT» DX2 

1 2Ox3,TS,0PS1 (2) 

COMMON /CENODS/ JSTART,JEND 

COMMON /CULBDYZ JLHOY,JLROV1,SYBOY 

COMMUN /CPSULIZ Al 4o-1),4LPHA(1,1)-8ETA(46-1),GAMM(46,1). 

1 DELTA(46,1) 

COMMON /CBNDRYZS RHO(23¢2) FP (2Se2) Ul23re de V(23r2) e VOU2S 62) 

eC ePSl(25ee)o R( 2542) 6 YBAR( 2342), RMIBAR( 25,2), UBAR( 25,2) 
3, VBURBR (23,2) ,RKAR(23,2),PRAR( 25,2) ePSI2( 142)4+24N( 2302) 
ua 
5S 


VIScos 
SUBROUTINE VISCOSINJJT) — ie ; aes * ee ae 
! 





rPKOUND (242), OX RNIp ST p> RCP OXODSYs PSI, YCALCe+SLOPE (2,2) 
+TT(1,2) 

CUMMON/SCOMPILZ OM104(104),VJET 
COMMON /TKEINZ XTRKE (20), TKEBDY(20)-NTKE,XLTKE (20) »-MJET/XDOUM(100),- 
1 EJ,TIJET,OIAJ 
COMMON /CTKESHK/S RJ,EJET,SOPTEJ EIJI ,UJS+24U,ZMJET 
CUMMON /CLOGIC/DDD(4),O0UAL,00DM($),B4RPRT,D0DM(S) 
COMMON /CSHK/ TANS11,/0SHOCK,DUMSHK (8) 
COMMON /CGAM/ GAMMA(2),GAM1(2),GAN1(2),G4M2(2),GAM1906(2) 
LOGICAL BARPRT 
LOGICAL DSHOCK,DUAL,ENTRYI 
REAL MJET 
DATA ENTRYI/NE /,TRUEGs IS. 


XTKE,TKERDY= IS A TABLE OF VALUES OF TKE ON THE JET BOUNDARY 
NIKES 1S THE NUMBER OF POINTS IN THE TKE BOUNDARY TABLE 
IF (OSHOCK) MSHUCK=1 


OR DUAL FLOW CASES,CALCULATE VISCOUS EFFECTS FOR BOTH STREAMS IN 
KE SECOND PASS 
THETA=,6 
NJZNJJOJT) 
GO TO (10,20),JT 
JSTARTSJLBOY 
JENODSNJ 
GO TO 30 
JSTA&RTENSJJO1) 61 | 
JENDENJIC I) eNIIC2)) | 
CONTINUE 
IF (ENTRY1) GO TO 100 
CALL FROLIC (NE) 
RETURN 


I2ST TIME TJROUGHS*SET UP -E= FIELD 
Er TRYJ=,FALSE, 

ZMIFTIOMJET 

RJZOIAS7 OS .%2 0) 


~ at gen i NS 4 


ONVERT EJ AND TKEBDY FROM INTENDITY TO ENERGY 
EJNE TEI, 





=E0« SHOULD RE USED TO DETERMINE TRKEROY 
eE0- IS Tre VARIABLE USED IN SSFD 
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AAMNMOM 
ee es 


Ce 


TIJETSES 
TIVETOSTIJET*#TIJET 
SET UP PROPER SCALING RE THEE 


N @JFTN] x= AND=-SSFD= 


NOTE ee TOTAL PRESSURE AND TOTAL TEMPERATURE ARE THE SAME 
-/SStDS, Je T4]x UStS THE WRONG STAOTIC PRESSURE, MACH NUMRER, STAT] 


ATUFE, AND ETC. 
CALCUALTE STATIC TEMPERATURE 


IN DEGREES RANKINE 


TIJETSTJET#e( 1. + (GAMMAn1, ve Same TavVJET) 


TSOEGRITTIETSOL eC GAMMSN}, 


y*,5e2¥N(1,1)*2MN(1,1)) 


CALCULATE SPEED OF SOUND==FT/SEC 


GC=32.174 
RGAS=53,35 


AF ITSFEC=ZSGRT(GAMM4aGCAeRGAS*STSOEGR) 


CALCUAATE ACTUAL JET VELOCITY IN FI/SEC*=eNOTE THIX WILL DIFFER FROM 


eaeyvJE Tae 
UJETZAFTSEC®2MN(1,1) 
COLUCLATE REFERENCE VELOXITY 


USED IN SSFT 


THIS FEFERENCE VELOCITY WILL BE USED TO SCALE TKE 


UJEUJET/UC 1d) 
CALCULATE xeEe® IN FT/SECo= 


FIFTH) .SaTIJE Ta TIJET*AVJET® 
IF (BSRKPRT) WRITE (6,1) TIJE 

295 DO 200 JsJSTART,JEND 
ACJ,NE)SEJQEJ _ 

200 CONTINUE 
NJK=ENJ , 
IF (CJTLEQ.2) NIKENJ*NIIO1) 
IF (JTLEG.2.OR..NOT.OUAL) 
IF (EARPRT) 


JEALL TABERT CONTHE _ sACJSTAPT WE) ONS e109 


SET UP COEFFICIENTS AT THE I 
COLL CUEFF (NE) 
IF (.NOT,OUAL) RETURN 
GO TU (400,300),JT 


300 JT=1 
ENTRYI=,TRUE. 
GO 10 5 

400 JT=2 
EJsE JET 
PE TURN 


MUST USE *VJET® FROM -JETMIx- 


VJET 
T,EJETA-UJETP-EJS,VJET, 2MU 


IN #JETMox 





ACNJK,NE)STKEBDY(1) 


NITIAL 


1 FORMAT (2X, 6HVISCOS,5*%,28HTIJETL-EJETAUJETP ES + VIET eo ZMUe 


ENO 


1109 


6F 15,4) 


sd 





'eOECK ZMIXL 
; FUNCTION Z2MIXL(X) 
#Z7MIXL @Z7MIXL= CALC. MIXING LENGTH 

COMMON STKEINZ KTREC 20), TKERDY(20)-NTKE,XLTKE (20) ,0UN(104) 
Ce INTERPOLATE IN JETMIX RESULTS TO FIND ALN/RJ 
COLL LFEITCKTKESXLTKESNTKE,X,2XLN0 100) 
2MIXL22XUN 





| 

| 

cat a ee = rhea -_ = i = — sdianeend 4 
RETURN | 

END ! 

} 
pf 
t — { 
| | 
r ‘ | 
| 
> — —— a 1 








1 
| 
ee ee eereeee ar 


en | 
b “ _ clases apna aa scala { 

! 
\ is = + 
— ee a a Ae ee ne Cee Te en a 
r 4 


+ 





nee 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
} 
| 
| 
| 
Sane: Seen Siar See Seeeey eee, ey Sees 
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*DECK MERGE 

i OVERLAY CSSAOISE, 3,0) 
| PROGRAM MERGE 
CMERGE MERGE JETMIX SSFD PROFILES 


LOGICAL ERR 
~ LOGICAL FOUND, BANDS, DUAL 
REAL MJET,ME »MUREF 
COMMON/TAG/NAME (10)-TITLE(10),1IDENT(10),ADDRES(10), 
* IDENTI(10) 
| COMMON/CRITS/ OBITS, BLANK 
{ COMMUN /FILINO/ KREC,KXX 
rf COMMON /COUMRIZ ~~ 
* THOGDT(9), BITS, ERR, FOOT, AKI, NJ, NMPUE pMIXPRE -XLCe FLOW, 
* MERGANV-CONI,CTI,CT2-CT$,CTU,CTS»CT6s,CT7, 
# CTH CI9OACTP eC TSe CIM, SP, SV,SLEN/DPRIN, PLOT» MIX, CF pMAXITS 
* 
* 





| 
| 
| 
| 
i 
t 
! 
} 
} 
| 
| 


—o 
| 
3 





TOL, SUPB,XPRN(100)-H(100),UC(100),TC(100),TIC(100), 
PTC(100) pWJ(100),YS(100) + TTC(100),YSONIC(100)rYCR(100)¢ 
XDC100)¢RD(100)+YR(100),YCD(100) -PO(100) eV (100) +MA2(100), 
VE2(100),TE2(100), 10, NCrCNAME (6), ALJ(6) ,ALJO(O) + 
ALE (6)+SCM(6),OIFF 
INTEGER &®PRN 
CUMMON /COUMR2/ NREG,SUPD,SUPSTP,CURE,CORSTP,MER»MERSTP, 
* T10(200),U(200)-T(200),xMACH(200),PTOT( 200), pee 
~~ # TTO(200),PTD( 200) eMOLF 1 (200) ,MULF2C20G),MULF3(200), 
* MILF 4(200) MOLFS(200) MOLF6(200) 5JD 
DIMENSION PSI1(200) 
DIMENSION YSC23¢2) ¢PSIS( 23,2) oP (2302) rPT (4002) pZMN( 23542) o TKE(UO)> 
xX NJI(2) ; 2 
DIMENSION TT (46) 
“PIMENSTON UOT200), THD(200), 600200), KLN(200),RHO( C00) + V( C00), i 
X TOTC200),PS1(200),x(100) ; 
DIMENSION UD1(200),THD1(200),601 (0200) /XLNI(200)-/RHOI (200), Y1 (200) 


es Pe Co ee ee ee ee 





ae Weer? ones eran Oe 


anil 


COMMON /TROURL/ CERR,ENDJOB 
LUGICAL CERR,ENDJOB 
~COMMONZJEILESZOPGF,UPDF ,NEWF, SCRE 
COMMON/FILK/CSC 
COMMUN/CUPDAT/MAP, IMAP, NDIGIT(14) 
L COMMUN/KEYS/REVC LI) KEYE(11)-KODACI1),-KODB(I1) : | 
COMMUN/CPILEZ YS,PSIS+PePT/ZMN, TKE, NIJ XLS, OUAL | 


i a se a Rn NR. = 


>, a PNPDGUDe THO,LED,XLNeRHO,Y/TOTSPST 
x +GC,G6CJ, 

xX DIAS,MJET,TJIET,PIJET,VJET,TIJETA/EJET. 
x 

x 


~~ 


PE,TE,VE,ME,TIE, 
GOM,RG,PRK PRT, SC, TREF »MURFE ,COePIL eX eNXTA, BANDS 


OUAL=, TRUE, 


a he eT eae ee ee a eg ME Ay ene ee kee Gee ag a a 


* READ INPUT RECORD FROM JETMIX FILE 


READ (2) KXKL,KREC, 
# NOME, TITLE, IOENT, ADDRES IDENTIy 
* TwUOT oie” Ede 


lili 








BITS,ERR,GC+GCJ,FOOT, | 
DIAS MJET,TJET,PIJET, VIET, TIJETSEJET, 

PE, VEsMEo TIE + TEs AXTsNJy NM, 

UE, MIXPRE, XLO,FLOWI,MERG/NV,CONI >, 

CTL CT ACT Se CTO CTS eCloe OTT, CTArCTIVCTP,CTS¢CIM, 

* GAM,RG,PRK,PKT,SC,TREF»MUREF ,SP,SV,SLEN, DPRINe PLOT. 
#Co,MIX,CF,“OXIT, TUL, SUPB , 
#x,xXPRN,BeUCeTCoTICePICeWJe Vd, T1Ce 

* YSONIC , 

#YCK,XD,RD, YReYCD, PD» WVeMAC, VES, TEC, NXT A, IDe 

#NC, CNAME, ALJ, AL JO, ALE, SCM, DIFF 

DO 1000 I=t,NxTA 

JEND=O0 


se © 


cae 


| READ PROFILE FROM JETMIX FILE 
f KXX] = CSC#X(1)+,5 
RFAND (2) JREC/KXX,KREG,SUPD,SUPSTP,COURE,CORSTP,MER,MERSTP, 
s NPD/PSI+Y,U0eTHD,ED, TID, RHO, XLN, 
# UrTe TOT+XMACHsPTOT+ TTD, PTO,MOLF 1 »MOLF2,MOLF 3¢MOLF4,MOLFS,MOLF 6, JO 
“TEC KXXNECKXKE J WRITE (6,9010) KCI) ess Brads ned BCA ty 
9010 FORMAT(//10X,23HKRECORD FOR STATION X = ,F12.6,10H NOT FOUND) 
if IF({) 267. 1) GO TO #0 
* CALCULATE TOT FOR INITIAL PROFILE 
r DO 25° Jet,NPO 
TSETHD(J)*TJET ® 
GAMise,257087TOee.OTOeTEk = 
IFCTS ,LE~ 800.) GAMI=1,4 
TFCT™S .GE. 3600.) GAMIS1,254 
CPSGAM1aRGS7T7A,/(GAMI 91.) 
25 TOT( SETS #.S*#(UD( J) ®VIET) #24 (GCIPCP) HEJETHEDCJI/CP 
40 CONTINUE 





| 
| 
i 


4t IFC x(1).GT,XtJ 2 GU TO 150 


i 
| 
} 
{ 


* READ PHOFILE FRUIM SSFD FILE 
READ (5) SRECrIXX,YS+PSIS+PyPT + UMNy TKE NIJ e XLS» OUAL 
___ IFC JXKNEWKXX ) GO TO 41 


| | 
| | 
| 
| 
{ | 





* SAVE JETMIX VALUES 
CALL MOVE (CS, UD- UDI» NPD, 1, THO, THOL/NPO, Le ED EDL, NPO,I1, 
® XUN XENI ,NPO, 1, RHO, RHOL,NPO,1) 

CALL MOVE (2+Y+ Vie NPD @PSIT+PST1,NPD,1) 
NPOLSNPD 


T 
| 
i 
| 
| 
t 
| 
| 
{ 
| 
i 
| 
1 
} 
} 
' 
| } 
Re eS ee Ne ee ee Oe a) ees | = 


* CALCULATE SCALE FACTOR FUR PSI COORDINATES 
F(T .Gf. %) GU TO 45 
NJENIIO1) 
DELESI=PSIS(NJo1)-PSIS(1,1) 
| ne NJ=NJI(2) . “= ASN tree 
DOELPSe=0, 
IF(PUAL) DELPS2=PSIS(NJ,2)-PSIS(1,2) 
DPSIPTEPSIT (NPD) eFPSIC1) 
PSIRAT=(DELPSI*+DELPS2)/0PSIPT 
45 CONTINUE 





| 
| 
| 
| 


~JSTART=1 


t 
| 
| 
| 
| 
| 
! 
| 
} 
j 
| 
| 
| 
| 
| 
| 
| 
| 
Se ae Se OR CT ae Oa 


; 
' 
‘ 
' 


é 





























_JqjtTe! 


50 NJENJICJTT) 
IF(OUAL ,AND, JTT .EQ, 1) NJENJ@I 


Pee eeeeerey tee | 


“2 SCALE SSFO COORNINATES 

00 60 Je1,NJ be te ee a es ne oe A 
69 PSIS(J,JTT)=PSIS(S,JIT)/PSIRAT 
ve INTERPOLATE ON PSI TO GET JETMIx VALUES AT SSFD COORDINATES 
CALL LSPFIT(PSI1,TOT/NPDePSIS(1e JTF) TTC JISTART) »NJ,0) 
CALL LSPFITCPSIL+XLN + NPDPSIS(1¢JSTT) eXLN,NJe 0) 


a eee 





ee ee Se - —o ee 4 


00 75 J=JSTART,JEND : i 
K2J-JSTART#+1 | 
PSICJ)=PSIS(K,JTT) 
THD CSIZTI CIAL #(GAM@L LISA, #ZMNOK, ITT) #82) 
P(K,JTT)=P(K,JTT) #PTJET 
—~—WSPEEDSSURT(GAM*®GCeRGeTHO(J)) 
UD(J)SASPEED*ZYN(K ITT) /VJET 
PROC JIE1G4, *PCK, JTTI/(RGHTHO (J) ) 
THO (J) =THD(J)/TJET : or 
L=J | 
2 PR OEE eh Re ee SUS 
EO(J)=TKE(L) 
Y(J)=Y¥S(K,JTT) 
75 CONTINUE 





aerate Be SA eee 


—_——-- + 4 


IFC.NOT. OUAL .OR. JTT .EQ@. 2) GO TO 80 
—_ SSTARTENI +1 ye SO J. 2 eo ee a 2 et 
—yrres : 


GO 10 SO 








BO CONTINUE 


* FIND SUBSCRIPT OF FIRST JETMIX POINT TO BE USED 
“POSSE GLSiehr Oe” © 5 om ite Ae 
IFCPSI1(J1) «GT, PSIS(K,JTT)) GO TO 90 
8S CONTINUE 
NPD=JEND 
GO TO 150 


“90 NILENPH<(JTeIy 
NPDSJEND*NJ1 
J=eJEND+1 


CALL MOVE(S,UDIC JI -UDCINIL,4, THOI(C JL), THOC JI NII, 
® EDICILIAEOCIV ONS Lo De KUNE CISL XUENOC II ONY GS de | 
® RHO{ CSI), RHOCJI)NJ1-1) ; ; : os ea ee a ee 

| 
j 
| 
{ 


—-+—-+ 


CALL MOVE CIS PSIIC JIL) -PSICJ) + NJ101) 


* SCALE JETMIX Y COORDINATES 
CALL LSPFITCHSIL,YIeNPOLePSIS(NJI,JTT)0V¥0,100) 
Y(J)=SORTCY (Jel) eee evi (JL) ee 2-VOue2) 
JPtsJer £ ; ; i 





IF(JP1 .GT. NPD) GO TO 150 7} 
OU 100 IJsJP1,NPO me 
lJlsJ1¢(1JeJ) 
100 YCIJS)=SQRT Cy (C1 Jet) ss2evicluiyetecnvil(idiel)«#2) 
150 LFE 1<61.2 } Gu Th 15% 
WRITE (4) KKXL,KREC, 
NAME, TITLE, IDENT, ADDRES» IDENTI, _ 
TeODT , ; a See : pages ‘ 
KITS, ERR,GC+GCJrFOOT, ’ 
DIAJ,MJET, TUFT»PTJET, VIET, TIJETSEJET, j 
PEr,VE Mtr TIEs TE, AXT,NJ,NM, | 
UE eMIXPRE, ALC SFLIWI,MERG/NV,CON), 
CTL,CT2,CT3+CT4¢CTS-CTO+CT7,CTH,CT9,CTP,CTS+CT™, | 
* GAM,RG,PR,PRT, SC, TREF »MUREF »SP,SV¢pSLENSDPRINSPLOT, 
*CoeMIX,CF -MAXIT,TOL,SUPB , 
ax, XPRN,B,UCe TC, TIC,PTCewJe VI er TIC, 
* YSONIC ' 
*YCB,XD,RD-YReVYCOsPOrWVeMAC, VES, TES eNXTA, ID, { 
ANCA CNAME SAL J+ ALJO,ALE,SCM/DIFF 


>, see eee 


151 IFC XPRN(I).GT.O ) WRITE (6,175) X(1) 
175 FORMAT(1H1,24X,30HKMERGED JETMIX AND SSFD PROFILE/51xX,@HFOR Xx 
XK FR LUS/LOX pL HY BX, SHPST BX yp 2HUDs 7X4 SHTHD BX, CHEDS HX, SHRHO, 
X BX, 3HKLN//) 
DQ 200 IJ=e1,NPD 
TE CXPRN(IL).GT.0) WRITE (65210) IdeV¥C1J)-PSI(TI) -UD(IJ)-THO(IJ), 
* ED(TJ)»-RHOCIJ),xXLN(IJ) 
210 FORMET (AX, TD 3-H 11.5 E11 .40F9,6,F 10,6, SEL1.4) 
IF(1J «EG. JEND) WRITE (6,215) 
215 FORMAT(/) 
200 CONTINUE 
—~———wRITE (Ca) JREC,KXX, KREG, SUPD, SUPSTP,CURE,CORSYP,MER,MERSYP, 
* NPD, PSL + Ye,UDs THD, ED, TID RHO, XLN, 
* UpT, TOT? XMACH/PTUT+ TTO,PTO,MOLF1 »MOLF2,MOLF 3,MULF4,MULFS,MOLF6,JD 


eee f 


1000 CONTINUE 


-_- 


~ RETURN 
END 


on ined) Aen Ges Sa aa 
| 
{ 
| 
| 
| 
| 
} 
| 
! 
' 
} 
| 
| 
| 
| 


' 
| 
{ 
| 
\ 
! 
} 
i 
| 

| 

| 

t 

iit es 
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eDECK LSPFIT 


- 


, ¥ - 
ANMAANNANO 


an 


SUBROUTINE LSPFIT(X+ YeNPTS, XC¢¥YCeNXCeND) 


*LSPFIT INTEGRATE GR INTERPOLATE "LSPFIT" 

C INTEGRATE OR INTERPOLATE USING A PAXABOLA WHICH PASSED THROUGH THE ITH 

C AND (1¢1) POINTS BUT MISSES THE (Tet) AND (I?) POINTS (IF THEY ROTH 

C EXIST) SUCK THAT THE SQUARE OF TRE DEVIATION IS A MINIMUM, NOTE 

C THAT I 1S GENERALLY SELECTED SUCH THAT _ i - = Pe es ee ee ee 
C KET) shE eMC oL TV XCIT $2) 

C TRE EQUATION FOR TRE PARABOLA IS 

€c YeY(1) = Be(xXex(I)) + Ca(xex( 1) ) «#2 


DIMENSION X(10)-YC10)- xC(10),YC(10) 





WHERE IC=2,NXC 


FOR INTERV ULATION _ 








C  __—sNQTE, THE OIMENSION "10" NOFS NOT NEED TO AGREE WITH THE CALLING PRUGRAM 
INPUT} 
Ne Y¥ PTS. ON CURVE 
NPTS NO, OF x 
xC LIST OF x AT WHICH CALC TO BE DONE 
__YC(1)_ INTEGRATION CONSTANT IF NOz#1_ 
NXC NO. OF XC 
NO =0 TO GET COORD, =1 TO GET 1ST DERIVATIVE, 
==1 FOR INTEGRATION 
LEND = LINEAR FIT IN END INTERVAL, T OR F 
€___OUTPUT - ee ee ee a ee Ba 
¥C COORDINATE OR DERIVATIVE AT XC OR 
YCCIC)= INTEGRAL (Y®DX) FROM xC(1) TO xCC(IC) 
C NOTES= . 
Cc "y" MAY BFE IN EITHER ASCENDING OR DESCENDING ORDER, 
Cc FOR INTEGRATION "XC" MUST BE IN THE SAME ORDER AS "KX", 
i aes NO SPECIAL URDER IS REQUIRED, 
COMMON /CLSPF / I,LEND 
LOGICAL LENO 
LOGICAL WITHIN i ES eee 
a DATA KNAME/ORLSPFIT/ 
N = NPTS@] 
IFCND,EQ.(21)) 121 
Isave = 0 
SGN = SIGN(1..X(Nt1)©xX(1)) ae Oe 
Cc BEGIN INTERPOLATION LOOP FOR xXC(IC) IC=1,NXC 
Ic = { 
r€ LOCATE APPROPRIATE INTERVAL 
100 J = MAxX0(1+/MINOC(I;,N)) 
WiTHYN= FALSE. — 
NCQUNT= N 
102 IFC(NCOUNT) 119,103,103 
103 NCUUNT= NCOUNT#1 
x] = x(I) 
x0 & XOCICT SRE 


1115 


a ee eee ene ee ee ae 


—— a - —ee 


bn aa tne 


4 


a Ss a 


SS 


k 


IFCN) 104,120,104 
104 IF (SGN*#xD) $05,107,110 


F.LT.O. (F IS THE FRACTIONAL POSITION IN THE INTERVAL) 


165 TFCT.EO.1} GU TO 120 
IFCNDO.EQ,(C*21)) GO TO 119 
I = J} 
GO TO 102 
F.EQ.0 
107 JFCxCleL1).NE.XI) GO TO 120 
IFCI.GE.N) GO TO 105 
Go TO 116 - rae ere A Pe eM ee Be en 
F.6T. 0. 


110 ITF CSGN*(xXCCIC)=x(1+1))) 120,112,114 


FeEQ.160+ CHECK FOR INTEGRATION AND DOURLE POINT BEFORE INCREMENTING 
112 IFCCNOEG.(o1)) GR. CIANEN AND, XCTAL)EQ.XC1+2))) GOTO 1200 
Pie GTiat 0 


114 JFCT.EO.N) GO TO 120 
IF(NDO.EQ, (-1)) GO TO lee 
fio 1 = Tel 
GO FO ee 





PRELIMINARY CALCULATIONS FOR INTERPOLATION OF INTEGRATION 
120 wITHIN=, TRUE, 
122 1F(1<1SAVE) 124,129,124 
12d YSAvVe =f 





¥I = ¥CE} 
x3 = X(I+1)-xI . nat 
Ys = Y¥(le1) VI 
¢ eal Be 
Toe 2 Oy 
Pes ROT = Gea e. ~ iia es ter he ae Sane Rie ke WRN Ao Sie ie a NN ee a Se 


IFC(LEND ,AND, (IELEQ.2 OR, T.E0.N)) GO TO 128 
IPCELE EY GO! TO te? 


x1 = x(TelL) x1 
x13 = X(rol)oxC1 +t) 
TUR = XVHCV Sexe (VC Let vv l) 9x s) axt3 
ROT = KL RKP ex E Sexy bens ~ hh. oh eet ae 
127 JF CI.GEWN .OR. (€X0,EG.0.,AND,BOT.NE.0.)) GO TO 128 
xa = X(Te2)exI 
Kus = X(l¢eyex( lel) 
yu S Y¥€} eceyevl 
TUP = TOP + KUalLY Sarum vyeaen zy aexvuds 
~ BUT > BOT # XUexda xd gaxd genx § ee ee ae 


128 ITF CBOT.LNF.O.) C = TURPsBOT 

6 = 0. 

IFENLGT.O AND. X3NELOe) B S CY¥CT¢LPOVIDZES | CHxd 
129 TFCND) 150,1406141 


NDZe], INTEGHATE 
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) ee 


eae? 


S 


eS ee ee ee ee 


' eDECK NOTSE 


xO=x3 
CGf26 + 


130 IF(.NOT WITHIN) 
St = €¥1 # 
IF(HRITHIN) GO TU 155 

"I" 15 BEING INCREMENTED TU FIND APPROPRIATE 

CUMULATE THE INTEGRAL OF THE ITH INTERVAL, 
SA = SA + Si 
GO TO 116 
APPR(IIPRIATE INTERVAL FOUND, 
135 IFCIC.EQ.1) SA=YC(IC) SI 
IFCIC.NE.1) YCCIC)=SA+S1 
GO TO 150 


C43. eKD) ex) #xXD 


INTERVAL, 


XC 1) =xCCIC)ex(14+1) 


ND=0, INTERPOLATE 
¥OCIE)=S YE + CG t 
GO TO 150 


FOR COORDINATES _ 


740 C*xD)#xd 


NO=1, FIRST DERIVATIVE 
141 YC(IC)=S B + 2.*#C2%x0 
___GO_ 10 150_ Leas ple Rees nee. Bas , * 
150 1C = [Cel 
IF(NXC*IC) 90041607160 
IF (NONE, Co1) AND. XC CIC) EGO. xC(IC=1)) 
GO TO 100 


160 I=I¢1 


900 RETURN 
END 





OVERLAY (SSNOISE,4,0) 
PROGRAM NOISE 


ic MAIN|e= WOISE UVERLAY (4,0) 
CUMMON /TROUBLZ ERR, ENDJOB 
r LOGICAL FRKRe-ENDJOR 
COMMON /CNERR / BITS,CERR,0UM1(3) 
if LOGICAL CERR 
i 1 CALL MAINNS 
IFC .NOT,CERR ) GO TO 20 
[ k0- ORR @ a tRue,. — ; 
20 RETURN 
END 


_+— 








HENCE, 








*DECK ALK1I 
iy BLUCK DATA e 
COMMON /NUTSLIZ JETIM,LIGHTH, AFAC,YFAC(96),xXFAC(4H), 
@ ZFAC(9m), THMAXK(96),FRO(GK),NFRQ,NEARFO,BETAIN, YCUNV 
DATA NFROQGFROS20, 2206p 2R2 6 B55 op NUT SOS ep T0096 AAI Ge 

LL2O. oe LHL D er L TBD. 2240, gp ARAN 4 4 85506 64470, SOS0 ep T090 pr AGC0 oe 

VI2SOO LA LHIO0 ee L TANI C2400, ,2b200., $5500, 2 4U7006,e 
Sie Se M0 Irotocelleuetolerl le ce 

C2454 2bCer 555.0 UT. e S63 ce 709.7 BI2.% 

LISD er LOLD ep L7TBD gp 22H, op 2K2A0 Gg S550 ep GUID  SOS0 er T0900 Fp AG20 ee 

11200./7 | 

DATA THMAX/9RO Sr S820 er S* 3004 SHUD er OES0 Gp CUHT0 eS 
DATA XFAC/O#1 , 6 FH20 4 SRY, BRAND op IR20 ep ORUD op IPRCN0 GS 
~ DATE YFAC/3 618 42,95 41.4501 ,49,1.037,600, Rataaae 

Ibe e ST el Gr 1SX0e, 

BeBe 29S 1 M5 18961 O34 ONG In oe ST ol be cl Fs 404 O54 oI Se1 0352 
VedPr LGU Le Sdr S21 pled, AP eOS ree Cpe eI Ak) Ile lovel bee S55, 
21*0., 
fee ctOh «55m Rel Meant 8p Ped Sese Cole. Catv ettete «OTs 
BL eC es ee ee ee ee Oy 
DATA ZFAC/7 94,7, 38, 3.6356 35.72e4 07TH Sle 

10305 530 0400565767 .56 91264 912,95 61 $049 18 040 1508 415.97 35,5, 

30.3427 0262143061719 .8,19.8,% 

Feb Fe SB er ScO3dp se FOpK OTe eSha td e300 D554 IT 61, 5lbr 2.175, 
FOI SSeS UTI UAL pW Te Fo Tp Be TO B41 49472 p 226, 38, 
Care su cOOr ert beerlecds1Ocer : 

Soledad oe LOT pe SS p Ge 25 oS cde O Gee Kee 2B lo $90 7.254,9.284 

11.6034.5718.5,22,9, 

Jer SOL eDS rl ebe de dr Sebo der Ger Yelp bee 2y Ire oBrl Bor Lehi oi eSby 

12652010824 HBr 2 Se S.e rere rede Te 9/ 

ENO 


x= =x ee 


[ a 


——— -—- “ 


x x + 


=x<« =< Kx ee OM 














 eDECK 


INTERP 
SUBROUTINE INTERP(X,Y) 
*#INTERP 
DIMENSION XTABLE(20), YTABLE (20) 
DATA XTARLE/ *5Sy4 ects @ e080 | .0be H.0U, @.02e Der o0le 294s 206e 
x eO8s ole cee 10002 6200. / 
DATS YTARLEZ 2.69, 1.69, 2708e elbe oTBSe e8bGHr LeOle LellelLe29r1 246 
¥ otstSs dan BESCTS ¥ 
S FORMAT(//GH X=,E15,8) 30H IS OUTSIDE RANGE OF xX TABLE. ) 
N=14 
IF (xX=XTABLE(1)) 120,50,70 ~ — = ee 
fF 50 YSYTABLE(?) 
GO TO 180 
70 IFC XTABLE(N)©X) 120,75, 75 
75 DO 110 T=2eN 
JF(x*xTABLE(I)) 140, 90, 110 £ ce) ey ee Se ———— 
90 YEYTAKLE(I) 
GO TO 180 
110 CONTINUE 
120 wRITE(6,5) X 
GO TO 180 , : a Pe : re 
140 11: ye 4 
B=YTARLE(I1) 
AZ(YTARLE (1) “B)/(XTABLE C(I) =XTABLE(11)) 
YoAe(XeXTABLE(I1)) ¢ B 
1AO RETURN eee ? = ane © 
END 


LiL 


a 


*DECK JTFILN 


SUbRUUTINE JIFILN (NTRY,XX) 


CJTFILE STORAGE OF BEROSDATA FILE FOR 


LOGICAL ENTRYI 
LOGICAL FOUND 
LOGICAL MCHANG 
LOGICAL AMATO 
LUGIC4L DPRIN 
LOGIC4L EOF , ERR 


LOGICAL AXI » XPRN , CMPRS 


LOGICAL ENTRY 
REAL MJET » ME » MUREF 
REAL MACH 


‘ MOLF 6 (200) 


CUMMON /RSTART/ NREG,RESTRT,NRES,MI XPRE 


LOGICAL MIKPRE 
COMMUN /CTRL2/ TrOOT(9) 
COMMON /DIFEQIZ 


* NC » CNAME(6) » ALJC6) « 


ALJO(6) 


PLOT OR 


» GJET » TURBJ 


* SCM(6) » TCPRF(6) , HCPRF(6) » CPC(3,6) 
COMMON /DICTRLZ DIFF »« CNO(10) 


LOGICAL DIFF 
COMMON /MOLES/ ALX(200,6) 
COMMON /BCMOL/ ALEDGE(6), 


COMMUN /FILES/Z ORGF,UPDF,NEWE, SCRE. 


COMMUN /FILK/S CSC 
COMMON /PARAM/ 


ALO(6) 


’ 


, ALECO) & 


CORE 


NOISE 


REAL MULE1(0200),MOLF2(200)-MOLF $(200)/MOLFU(200)+MOLFS(200), 








* U(200),T(20 de TOT(200),xXMACH(200),PTOT(200)/TTO(200), 


* PTN(200),DUMP9(409) 
COMMON /RATIO/ AMBTO 


COMMON /MISC/7 PM(10), PLOT | 


COMMON /SITNPIZ ENTRY] 





COMMUN /UMESH/ MCHANG,CK,DY1,NMSH 


TJET 


ME 
NM 


rR 
MUREF 


» THEOGE 


, 


1 CXPC,CKTP,NRED 


PRT 


Cer 
Caeeeee TNPUT COMMON 
Ce 
" COMMON /INPJET/ 
* OFAS » MJET , 
* TIJET , 
* PE » VE ’ 
2 Ax] yg NJ , 
* *(100) 7 XPRN(100) ’ 
# [,4M e kb , 
* SC 1 TREF , 
C*# 
Cataeee CONSTANT AND ERROR COMMON 
Ce 
COMMGN /CNERRZ BITS , ERR , GC » GCI , FOOT 
Ce as 
Cesaeewe BOUNDARY CUNDITIUN COMMON 
C*# 
COMMON /BC/ UEDGE » EFEDGE 
. 
eeaene POTENTIA CORE COMMON 
Ce 


1120 


’ 


VJET 





= 


— 


=i 


[  —— 





mas COMMON /COREO/ XCORE » CORE » CORSTP | 
Ce 
Caeeeee SCALER (UNITS CONVERSION) COMMUN | 
Ce \ 
| COMMON /SCALER/ SP +» SV ¢ SLEN 
Ce i 
COMMON /JETIZ FLOWS, TTO,NX,EJET 
“COMMON /PRUPJTS : : : ; ‘ ‘ 1 
2 P e PRL » PRTT 7 RGAS a SEC ’ 
« TREE » VSREF « MACH yp XE ' 
x REFL,Ce,CHI] > RNURM, 
* RHO(200)-/DUM1 3(600),XLN(200),DUM14 (400) 
COMMON /KPRIN/ DPRIN 
~COMMON /FOATA/S ODuM7(U),NFCSV,NRW : : aie Seo 1 
COMMON /CPROP/ CT1,CT2,CT$,CT4-CTS,CT6,CT7-CTR +-,CT9-CT10 
COMMONS PROF/ PS1(200),¥(200),U0£200)-THD(200) ,ED(200) 
COMMON /JET/ 
* B(100),UC(100)-TC(100),TICCINO), 
PTC (100)+NI(109),¥I(100),YSONIC(100) 
~ COMMUN /JET2/ TIC(100) ; oe. ee eae 
COMMON /SCTRLZ 
* NXTA + CMPRS a OJET » TURBJ + COEF (10) ‘ 
* NPU r NPD 7 OxC 1 XU » X00 ’ 
* TID(200) + DSTOR(600) 
COMMON /TAG/ 
~ # NAME (1G), TITLEC10), IDENT(10),ADDRES(10), TOENTI (10) Sealine ae 


-—- 


COMMON SMIXER/S MI X,RD(100),X0(100),CF,YR(100) 
LOGICAL MIx 

COMMON /FLOGAL/S MAXIT,SUPB,NIT,PSID, YOO, YOC, 

* P1,P2,UCL,TOL,UPSTRM,CVG 

LOGIC4L SUPA,CVG,UPSTRM 

CUMMUN /SACONVG/ YCO(100)-P0(0100),INDC(100), CHOKE, CHOKED 
LUGICAL CHUKE, CHOKED 

COMMIIN /DFIT/ CLSP(100) 

COMMON /STA2/ MACH2,TS2,SS2rV2,RHU2,0PDX2 

KF AL MACH? 

COMMON /BCMIX2/ GRADU, TW eMUN,RHOW,PTE,TTE 

REAL MUW 

COMMUN /MIXPRP/ MA2(100)/VE2(160),TE2(100),TwC(100) 


REAL MAO 

COMMUN Cy wV(100) 

COMMUN /OUTMIX/ NXORIG 

CUMMON /CBODY/ YCH(100),CLSPCBK(100),YCH! - UCLI 
COMMON /JET3/STADO,NV, STATE 

COMMON /REYS/ KEY(11)/KEYACS1)-KODA(11),/KOOB(11) 
COMMON /MERGET/S “ER, MERSTP, XMRG 

COMMON /SUPERZ SUPC,SUPSTP,xXSUP 

COMMON /ZCPROP2/ C1P,CTS,CTM 

COMMUN SPROPJ2/ MACHU,REFLO, YI, YOs, MERGE 

CUMMON /CONSTF/ CON 

COMMON SFILINOS KREC,KXX 


} 

EQUIVALENCE (MOLEFIC1) + ALXO1)) ¢ EMOLFAC1),4Lx(201)) 
| a (MOLF3C1)/ALX(U01)) 4 (MOLFUC1),ALX(O01)) » 
[ * (MULFS(1)eALXCBO1)) » (MOLFOC1),4L"(1001)) 





COMMON /CMFILES MFILE — ; ale =e 


DIMENSION LEN2(11)-NS2A(10),LENI(5),NSA(4) 
ENUIVALENCE (UE,VE) 

FQUIVALENCE (Co,CQEF (6) ) 

DATA ENTRYI/ST/ 

DATA NSA/15/1HJ,6;,1HS/ ; 

DATA NSQA/5S¢2H1T 1s Lech Le ltr thie 1 0eeH1 5,5, 2HdK/S~ 
DATA JTBLANK/U202020202020/ 

OATA [PROF /SSHAPROFS 

DATS KXXIS2HXX/ 





— ——_——_—_—----- — ---—--— -- -——— ane - 4 








1 GO TO (120-200 ) ¢ NTRY 


120 REWIND MFILE y 

READ (MFILE ) KXxX1,KREC, 
| ®t NAME, TITLE, IDENT, ADDRES, IDENTI, Pe eR ae 
* THOOT » —— 
BITS,ERR+GC+GCJ-FOOT, : 
DIAJ,MJET/-TJETSPIJET/VJET,TIJETAEJETe 
PE,VE,ME, TIE, TEs &XIT¢NJ_,NM, 
UE eMIKPRE, XLCeFLOWJ,MERGE,NV,CONI, 
CTL, CT2pCTS$eCT4 CTS eCToeCT7sCTBeCTI¢CTP,CTS CIM, 
* GAM,RG,PR,PRT,SC,THEF »MUREF »SP,SV,SLEN,DPRIN,PLUT, 
#C6,MIx,CFeMAXIT,TUL,SUPH , 
eX,xXPRN,B,UC,TCe,TIC/PICeWIe VI, TIC, 
* YSONIC , 
*YCK,xXD,RD, YReYCO,PD WV eMb2, VEC, TEC NXTA,Iy 
aNC,CNAME,4LJ,ALJO, ALE. SCM,DIFF 
~ GO TO 1000 j eae 





5 ewe 


»_ee ee © 








} 
} 


200 KRES = CSC#XK4.S 
OO 210 IJ=1,KREC 
READ (MFILE) JHEC,KXxX+ KREG, SUPD, SUPSTP,CORE,CORSTP,MER,MERSTP, 

* NPD, PSI, Y*eUD-THO,ED,TIDs+ RHO, XLN, 
# Ur Te TOT, XMACKLPTOT, TTD, PTD, MOLFIsMOLFeeMOLFS,MOLFU,MULFS,MOLF6,J 
1F( KxXxX,EQ.KRES ) GO TO 1000 

210 CONTINUE 
ERR Ss , rRUE. 

WRITE Cosel) Xx 


, 
} 
} 
} 
| 
| 
| 
| 
j 
' 
{ 
| 
' 
i 
} 
} 
| 
| 
| 
| 
| 
' 
! 
| 
| 
| 
| 
| 
} 
| 
H 
' 
| 
| 
} | 
| { 
} | | 
| 
} 
OT ee ane! SIE) SOE Lee SES BUTT OER TR EE TN CNS See) SAS LMT Oe 





| 
| 
| 
i 


ENO 








' 
| 
; 
} 
} 
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TeDECK MAINNS 
SUKROUTINE MAINNS 
|CMAINNS MAIN SUBROUTINE ®*#s NOISE 


LOGICAL PAND,PSPEC 
LOGICAL HOTJET,SETAIN, QCONV,RIBNER,LILLEY 
LOGICAL STAPE,IPUNCH,ENDJOB _ ce 
INTEGER $3(5),S11T002),SP(5),SPID(2), BLANK 
EQUIVALENCE (S1,SP), (S1iID,SPIO) 
DIMENSION KEY(1)) 
REAL LSCALE 
COMMON/XUNF AC/ALSCALE 
COMMUN DUMC (8) +PROGSV,OUMJ(2),KEYREF 
COMMON /FILK/CSC ae ea ales 
COMMON/CUPDAT/MAP, IMAP, NDIGIT(14) 
COMMON/ADAMO2/ENDJGB 
COMMON/CURE O/XCORE,CORE,CORSTP 
COMMON/CARRY/NEW 
_ LOGICAL NEw, ERR : 
~CUMMUN/CNERR/SBITS, ERR, DUMUO (3) 
LOGICAL B4ND$,ACUUSP,ACSPLN, ARC 
COMMON/CBITS/BITS, BLANK ~ 
COMMON/CFILE/NFUPEN, ORDER, ORIG, UPDAT 
LOGICAL NFOPEN 
COMMON/NOTSE1/NOTSECs ASPEED, NA, SLINE + ANGS (20) »PSUM2 (20), 
M ORSPECAOVSPROFNGGANDS = "96 05°.) © 2 ee! fF te ey > oe 
COMMON/NOISEG/BETA 
COMMCUIN/NOTSE6/ACOUSP(100),ACSPAN(20) 
COMMON/NOISE7T/SCALJ,CVMACH, SCALT-RIBNER,CRIS,LILLE Ys, SE» PAO, MU 
x", PSPEC : 
COMMON/NOTS1O/A4RC,ARCL MC 
“COMMON ZNOTSTI/SJETTEM,LIGHTH, AFAC, YFAC(OU, 2,2), XFACCOU, 20, 
KX ZFAC (24,202) eo THMAX (24,2), FRA( 2442) @NFRO,NEARFD- RETAIN, OCONV 
EQUIVALENCE (HOTJET, JETTEM) f 
COMMON/NOTSI2/TSHL (36,20), ITPUNCH 
COMMON /CMFILE/ MFILE 














a 








“*#NOISE INPUT LIST tas ees <2 : aerate ae eae 
NAMELIST/ A /ARC,ARCL,MC,RETA,CVMACH, SCALT, ACUUSP, ACSPAN,;RIBNER, 

CRIB,SLINE + ANGJ,NA,PREFN,RANDS,SCALJ,JETTEM,LIGHTH, : 

BFAC,YF AC, XFAC,ZEAC) THMAX,NERGQpFROe NWEARFD, XCORE, 

$1,S1 I0,SP,SPI0-eTPUNCH, STAPE,CSC,NOIGITsHOTJE Ts RETAIN, QCONV 
__sLILLEY, SE, PAO,MU,PSPEC+LSCALE 

»MEILE : ; ic KS 
L NAMELIST/SLIST/TSPL 
L* INITIALIZE NOISE DATA 
BETAIN= ,FALSE, 


—T v Tot a ee ict ray (mis) aaa 
! 
| 
| | 
} | | 
| ) 
{ | 
| 
{ { 
| | 
| 
| 
| | 
ae eT ae CRT Le, Ce eT Se eee err Gece te” ees Cee Seen eee eee eee: (eee ee none ae | 


=x =x OK OM 


| 








| NEARFO= 0 
eae. ©. Fae 
PSPEC = ,FALSE, 
MU = 0 
JETTEM= 0 
QCONV = .FALSE, 


_RIBNER= ,FALSE, 
LILLEY= FALSE, 





' 
! 
| 
| 
| 
| 
t 
| 
' 
| 
{ 
| 
| 


| 
‘ 
‘ 


| 
{ 
| 
| 
{ 
| 
| 
| 
\ 
| 
| 
} 
| 
\ 
{ 
| 
\ 
| 
| 
' } 
| 
| 
| | 
} 
' 
_—_— ee ee a Sey See © 





MFILE 3 2 
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LSCALE=1, : 
CALL SETM(1,0,4COUSP,120) | 
ARC=,FALSE, { 
ARCL=AKITS ‘ 
SEZ1. | 
SCALT=.5 _ ¥ ae ae = 2 DN ie SE LTE 
SCALJ=}. 
CVNACH,63 | 
CRIH=.2577 
RIKNER=,FALSE, | 
PREFN=,0002 | 
EOE DS oa NE an Te pe ie eer = Spe Ne Se i a Oe re ne a 
S1¢1)=0 
90 15 =1,2 
S110(1)=B8LANK 
_CALL_NOTSEM _ ae ae ee ae a Se 
RETURN Eo bs = = 
END | 
- Ee: | 
| 
ss ee eee See, ss —— 
' 
a 





“#DECK NOISEM | 
; SURROUTINE NOISEM 3 1 
_CNOISE™ FAH FIELD ANALYSIS FOR JET 


DOUBLE PRECISION ASOST,-HST 

LUGIC&L DKUG 

LOGICAL FAN,PSPEC 

LCOGTCAL BIRNER,LILLEY 

LOGICAL ENTRY 

LOGIC4L NUTSEC 

LUGIC4SL BETAIN,GCUNV 

LOGIC4L ACQUSP,ACSPAN 

LOGICAL BANDS 

LOGICAL TF APIN, TAPOT 

REAL KOL/KO2/KIL1,K12 

HEAL INTGI,INTG2? 

REAL MLOC + MACH /MCENT MOL eMQ2,MCMA,MRAT 
DIMENSION W(200),”L0C6200),40(209),U0VE(200) 
DIMENSION RTAB(26),FOFB( 26) 

KEAL JSUB1 : aia 

REAL MJET,ME,MUREF 

LOGICAL AXI,xPRN,CMPRS,QJET,TURRJ,ERR 


REAL LSCALE 
COMMONS XLNF AC/LSCALE 
COMMON /NOITSE17 
*® NOLSEC,ASPEED,NA,SLINE,ANGJ(20),PSUM2(20)-/0ASPL(20), 

& PREFN,RANDS 
COMMONZNOTSE2/P1J(0209) -SPLIS (200) -FREGIJ(200),P1J2(200), 
KX SPLIJ2(200),FRGTJ2(200) 
COMMUN/NOTSE 3/FL (36) -FC( 36) -FUC 36), ING $6) -PIJ13( 36) 0 INI (36), 
X PIJ131036)+1N2(360),P1J132(36) ; : Gis fn a Ta a el a 
COMMON /NOTSEG/ BETA 
COMMON /NUISESZ PNOB(C20)-, SPLUC(B,20) 
CUMMON /NOTSE6/ ACUUSP(100),ACSPAN( 20) 
COMMUN/NOTSE7T/SCALJ,CVMACH, SCALT,RIBNER,CRIK,LILLEY,SE,PA0,MU ' 
x ePSPEC 
CUMMGN /NUTSERSAPOWER, POW(CIT00),PUnTOT,SPOWL200) © ©§©@©.™©6©.. j 
LOGICAL APOWER 
COMMON /NOISE9/ INP(36),P0W3( 36) 
COMMON/NOITS1O/ ARC, ARCL,MC 
LOGICAL ARC | 
CUMMOUINSNOTSSISJETTEM,LIGHTH, AF AC, YFAC(2CG, 202) op XFAC( 24,2), 

“HX ZRBC (O46 Are), THMAX( 24,2) »FRO( 2462) ,NFROQ,NEBRFO,GETAIN, GCONV 
LUGICAL ITPUNCK 
COMMON/JNOLISLE/TSPL (36,20), 1PUNCH 





C* 
CUMMON STOR ILE TAPIN, TAPOT 
COMMUN /TAG/ NAME(10)¢TITLEC10),IDENT(10) -S00RES(10),TOFNTIC10) 
~CUMMON SINPJETS eaey t 


4 * DLAJ o MJET o TJET ¢ PTJET » VJET ' | 
* TIJET , 
{ a PE 7 VE » ME x use pe ’ { 
* Ax] o NJ » NM ’ 
_ _* *( 100) o XPFN(100) = , = F Oe 8 ee: i 
« GAM » KG + PR ay IPRY ’ 








* SC  TREF « MUREF : Kk ae - 4 


COMMUN /ETRLZ 


* NXTA + CMPRS + QJET » TURBJ + COEF (10) ’ 
=» NPU ¢ NPD « OxC oe XU » XO ’ 
* U(200) » TKE (290) » T(200) « ®(200) { 


COMMON /CNERR/ BITS, ERR,GC,GCJ,FOOT 
COMMON /PROF/ PS1(200)-YD(200).U0(200),THO(200),ED(200) ae — 
CUMMON /JETIZ DUM1(3),  EJET 1 
COMMON/PRUPST/OUMP12( 8), XCOREL,OUMI2(4), } 
* RHO (200),0UM1$(600),xLN(200),¥(200),0UM14(200) 
COMMON /CORED/ xCOkKEe «¢ CORE » CORSTP 
COMMON/JET/BMIX(100),-DUM15(700) 
COMMON/CENTRY/S NA1,XS,4NGJJ 
DIMENSION VULJ(200) | : 
EQUIVALFNCE (VOLJ(1),0UM14(1)) 
EQUIVALENCE (YA,SLINE), (Co,COEF (6)) 
OATA PI/3.1415927/ 
DATA RADDEG/.017453/ : 
OATA BTABsSO.+ 13, ase ee Se Te ee ee 
TK See We Veber Orde Se Men be Sp 1c OnleSsde0rOe cr Ie Or Geant. OF 
DATA FUFBK/, 66455, 64534 29667 4 oe 1 O08 y 09514, 04675, 601959, .011375, 
X — £006652,.00451 8, 9052795, ,0016258, 600086764 .0004925,.,00029K1, 
X .00018456+.0001189S,.,000079H, ,0000547HK, .00003864,.00002785, 
X  .00002047,.0000153,.00001162, .00000K945+ ,00000697/ 
CTHPO(K)=.999S9I a KH, OFUIRSORT (YL eK aX) 
“CTHM2 (XK) 2.999389eK +, 03U9*SORT(1,ox#K) 
CTHP2(K)=.999ISI aM OS4IKSORT (I a XeX) 
FICK)ECO,#UFL ECL UF 1) *®X)/CUFLeSORT (Xe xX+UF 1) ) 
FOCx, YI=ALUGCOX+SORTOX*®X HUF ID IZCY*#¢SORT CYR YeUFI))) 
FUCK)ECAL HUFL RCL Re. RUFIL) + (O,m1LoeeUF I 43, 8UF 1 RUF 1) AX98, RUF Lex eX eUF If 
KX wxee dy /(2,eUR 1 ASQRT(X*®X+UF 1) ) 
KD ERISSURTECMERCCEGS © © (= Race ee ate Comal 
FIL CH )=EKSAD(CK) (1, SAD (CX) #8242, / CHRO) 
BXOXD EC (Lee CerGeSNaCVMi aac ax ¢ U,eCweU)y SAN (XS 
OX(X)=BK(K)= C(CCH*4 Hb, eC eH? 41, -SNACVMI ace (Caacnl,))eXaey 
1 +, #Cenda(Caadef.) <SN#2,aCaHd4eCVMi ne?) £03, eAO(X) #85) 
FIQO(K)=OK(X) FALOGOXFAD (CX) DaCaea 
~~ FY3(x)=“DK(XISALOG(X FAD CX) YeCead 
B(xX)=ABS (1,°CVM14#X) 
GICX)=1,7 (04. *#CVM1 8 B(x) eed) 
G2CK)ee1,/CVM1aeSe (ALOG(R(xX)))¢ 4/ACX) 
G$(K)= 1,/CVMLaeSe(ALOG(K(X)) + 4,/K(X) 
1 =B,/B( XK) *HeHU SC 3, HACK) ees) H1,/(4,*B(XK) #84) ) 
“2 ePe7CVM faa se (oP J (2O.#B (XK) ano) 4 OS C3 ABIX) RRS) S.o57B (Keegy 








| 
= — = 4 




















Ce 
Ce FAR FIELD NOISE CALCULATION©e=}] SIDFSLINE, UP TD 20 
C* RECEIVER ANGLES, NASQUTE LONP INDEX UN ANGLES? IT=INNER LOOP 
C* INDEX ON X VALUES ALONG JET, J=MESH POINT INDEX ON FLOW@FTELD. 
Ce 
ih 2 SAPO Lee soc; =... .. a gi : ins 
IF(NEFARFD .LT, 1) APOWERS, TRUE, 
It (PHAQ) APOWERS,FALSE, 
IF(KETAIN) GO TO 5005 
BETA=,00425 
| IF(JETTEM ,NE, 0) BETA=.002105 
[ 5005 CONTINUE na : as a 





‘ 


a SSS LOSES eS Nee Lone: eee | 
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OSC4LJs1./SCALJ 

OSCALT=1./SCALT 

OYNES=478,8*478,8 

CALL JTFILN(},DUMX) 
SSPEED=SGRT(GAM*GCeRGaTE ) 
Cx=2.*C6 
CPMPO=RETA/(U,*PI®ASPEED A&G) 
PREENOS1,/(PREFN®PREFN) 
CTESEJET*GCJ 

PO«TOT=0, 

RHOFD}G4,ePE/(RG*TE) 
CPOW=.3L® BETAS (RHOE ®ASPEED #2 3*G6C) 
CARC=I, 





1 NA1=0 
NAL=ENAL +f 

IF (NA1,GT.1) 
ENTRY1=, TRUE. 
RANGSRADDEG®ANGJ (NAL) 

IFCARC AND. ARCL.LEQ.BITS) CARCH1./SIN(RANG) kee 


APOWER=,FALSE, 


---—__— = 





IF(ARC .AND,. ARCL.NE.BITS) SLINE=ARCL*SIN(RANG) 
ANGI=COSCRANG)/SIN( RANG) 

XAZ=YARANG] 

Ce 

“C* INNER LOOP TO SWEEP FLOW FIELO FOR NOISE CALCULATIONS 
Cr 

| BSUMZO.. 
00 100 [=1,NXxTA 

SPOWS=0, 

xS=x(1) 

XSF=xS#Cx 

Cr 

“C# RECLAIM FLOW FIELD PROFILES FROM FILE O1 
Cr 


3 CALL JTFILN(2,xS) 








Cer 
C* CONVERT TO PHYSICAL VARTARLES 
C* 
~ ~“FFUL.EG SS “.ORs BLEOSNKTA) GO TO @ ie ees 
OXA=.Sae(X(T +1) =x( Lt) )*CXx 
GO TG 10 
4 IFC(1.EQ.1) GO TO 6 
Dwb= Sae(KX(NXTA)@XONXTAML)) eCX 
GO TO 10 es 
~~ 6 DRYAS SNCKCOIekCL)ACe = mae 
Ce 
C* INNER LOOP AT STATION Ie-*J=SUBSCRIPT 
Ce 


10 CALL FMPYC(1,VJET.»UD,U, NPD) 
Catt FMPYC(1,TJET, THD, T,NPD) 


-—-—_ 





~ CALL FMPYC(1,CTE,EDs TKE, NPD) 
CALL FMPYC(1,CO, YO, Y,NPO) 
1F(.NOT. PAQ) GO TO 7036 


| 


[F Pao Fae FIELD NOISE MODEL 
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PRT ER ARERR ERE E RARER ARERR RARER REAR R ERA A RARER ERR ARR REE 


ee ee ne Seine Seine! Seeeee es Sane eee Sree ee 








* CALCULATE “LOC AND A FOR EACH POINT 
COSA=COS(RANG) 


00 7003 J=1t-/NPO 
A(J)=SQRT(GAM*#*GCaRGET(J))/ASPEED 
| MLOC (J) SUC J) /ASPEED 
7003 UOVC(J)=MLOC(J)74A(J) 
IF(COSA ,EQ, 0.) GO TO 7035 





_* SEARCH FOR POINT WHERE 1/(MLOC+#A) = COS(ANGJ) 
COSIT1=1.70ML0C(1)+A(1)) 

_ 00.7005 J=e2,NPD 
COS12=CNSI1 
COSI1=1,./(MLOC(J)+A(J)) : 
IF CC COSA .GE. COSI2 weAND, COSA LE. COSTT) eOR, 

% COSA KE, ECOSTS AND. COSA GE, COS}1)) (GO To TO10 

7005 CONTINUE 

__J=NPD 


— earch —— = nee = - ee eee — | 


+ — Se ee = = —a— a 








_* K IS THE INDEX OF THE Y VALUE THAT IS THE LOWER LIMIT FOR INTEGRAL 
7010 K=J 
IF(ARS(COSA*COSI2) LT. ARS(COSA*COSI1)) Kessel _ 


_* EVALUATE THE INTEGRAL W. USE TRAPAZOIDAL RULE, 
w(K)20, 





IF(K ,FEQ. NPD) GO TO 7025 

DQ 7020 J=K,NPOD 

MGe="Ol1 

MOQL=ESGRTCABS( (01. /COSA+MLUC (J) SACS) ) ##2-1.,)) 
SIF t) othe h)) 60) hOurOeO = ioe Paes 

WO J) TAC JEL) +. S*(V (J) eV (Jel) ) 2 (MOL eMQ2) 
7020 CONTINUE +7 








702 TPCR SEG. fy) GO FO! 7655 
OO 7030 Ji=i,k 
WekShien 
MG2=M01 
MOJ=ZSORTCABSC( (1, /COSAtMLOC (J) )/SAC I) ee 2-t,)) 
IF(J .EQ, K) GO TO 7030 
WJ) Sw( Jel )e.5*(v¥(J9-V¥(J41)) *(MG1OMQ2) 
7030 CONTINUE 
7035 CONTINUE 





RRA ERRATA ARERR AHA EHR RARER HARRAH 
7036 09 50 J=1,NPO - 
_XUNC J) SLSCALE*XLN(J) 
“Sevensesak =< on 
SS2zvhwovV(J) 


{ 
| 
R(J)=SORTCSSI*SS14+SS2«05S82) ; | 





COSTH=<SSI/R (J) 

SINTR=SSe2s7R (J) 
THETASATANQ(SINTH,COSTH)*1A0,/P1 - 
[ “THMELS/ (1 ¢eE®COSTH) ae ee : —- 








[ FREGISCJIELeL*SQRTCO,#TKEC IIE. IA CO, #XLN( J) #PIT) *OSCALS } 
* #NMSCALT 
FREGIJS(J)=FREQIS(J) # THM 

I FROIJ2(J)SFREQIJ(S) 

les 

"Ce EVALUATE VOLUME OF ANNULAR RING ASSOCIATED wITH POINT IJ 

€* 


— IFCJ.€Q.1 .UR, J.EQ.NPD) GO TO fa 
OYa=,Se(V( Jel )-V¥(Je1)) 
TRCOVA .EQ. O.) GO Ta 20 
IF CYC J+1) .EG. YCJ)) GO TO 15 | 
r FCYCS) EG. Y¥CJ"1)) GO TO 16 
DU = (UCS1)9UCJ)) SOV (StI -v¥(S)) 
ro =: DUS goeCOUFCUCII=UGIebIy + CVC LI=%Q=!)). °°  —  <. , 
DUC=(UDVE (J #1) -UOVE(JIIZCY CJ 41 eV (J)) 
DUC=.5*# (DUC + (UDVE (J) “UUVE (Jel) AOS) 2¥ CJe1))) 
GU TO 20 
15 DUZ(UCJ “UCJ=1)IZCV CJ) 91 (Je1)) 
DUC=(UOVC CJ) UUVE(JM1) 701 (CJ eV J21)) 

“Go tO 20 Pate e ia 
16 DUEC(UCJF#L)MUCJ)IZOV(Jt1)-¥CS)) 
DUCH=(UOVC(J+l)UOVC (J) IAC YC S41) -¥(J)) 
| GO TO 20 
if ¢4 JECILEG. 1) GO 40) 27 
DYA=,S5*(Y(NPD)=Y(NPD@1)) 

TECHYA” EO. 0.) 60 TO 2o. F rata Sk ee ee = ; ] 
DU =(UCNPD)*UCNPD91)) 7 CYC NPD) =YC(NPD=1)) 
r DUC=(UOVC (NPD) -UOVC (NPD=1) (CY (NPD) =YCNPD-1)) 
GO TO 20 
17 OYA=.S5e(¥(2)°¥(1)) 
FEGDYA EQ. 0.) GO TO 20 
bu =CUCo) “ty 7 CHV |” ee ey TESS a eee 
Ouc=(UNVC (2) -UOVC(1)) 70102) -¥(1)) 
20 VOL=2,*#Pl*V¥(J)eDXAeDYA 
VOLJ(J)=VOL 


+ 


+ 





RARER RAR RR RRA RAHA RARAAAAR HA RRAARKHAARAR ARERR AAR RAKRARR HARARE 


_# SPL CALCULATIONS 


IF(PAO) GO TO 7000 


“Cs MC=0 FOR FIXED CMSCVMACH (INPUT) 

Ce MCS! FOR VARIABLE CM IN R=DIRECTION 

Bs TF (hE 4bGs F CAND, = xXS Gt, Evy GO TO BOD nee z 
CM=CVMACH 


GO TO 8020 


BO10 xray (J) CoO) XSF 
CALL INTERP(XY,CM) 


| 

——— a — ee ee ne re Pe ee 4 

| 

8020 CVMI=CMRU(J)/7OSPEFD | 
PAREN=1,°CVMIL*COSTH 

: UF L=.25eCVM1 eee | 

IFCJETTEM EG, 0) UFI=S,09eC VMI #82 

Pe IF(.NOT, QCUNV) UF 1L=2,4273, *TKE (J) SASPEED* #2 5 ie —_ 4 

30 TFCRIRNER ,UR, LILLEY) GO TO 3e | 

\ : 4 
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PHRAAAAAAARERARARAAAAARARA RARER A ER ERRRR REE RRR RRERERRERR eRe AKRAE 


———— 


. 
r 


RARER RARER RRA RAAREE RARER KER ARH RRA AREH AERA HR ER RRR EAA 


31 VEL22sU(S) aad 
VRELSAKS(U( J) @VE) 
VEL22=VREL ee#Ga THM 
PAREN=PAREN*PARENOUFY 
QFACH(1,°CVM1 #42) /SQRT(P4SREN) 
C1=1,/PAREN##2,5 
IF(NEARFD .GT. 0) GO TO 38 


FAR FIELD MODELS 
IFCLIGHTH .EQ, 1) GO TO 140 


LIGHTHILL SELF NOISE 
PAREN=C1 
GO TO 33 


SELF AND SHEAR NOISE 
140 CXRESINTHASINIH®COSTH®COSTH/PAREN&#1,S 
CxXX=COSTHR ae U/PARENR#1,5 
JTSJETTEMO1 
STNUMSFREQIJ(J) *DIAJ/I2./1116, 
DIVI=13392, 
IFCJETTEM .E€0. 1) OLVI=S293.7 
00 34 L=1,NFRGQ 
IF(STNUM LT, FRO(L,JTI/OIVI) GO TO 36 
34 CONTINUE 
LINFRG 
36 CONTINUE 
I1SUbB=1 
TFCTHETA .GE. THMAX(L,JT)) ISUBSO 


PARENSZFAC(L+ISUB,JT)®(CXR+CXX/XFAC(L, JT) )+C1*VYFAC(L,ISUB,JT) 


GO TO 33 


NEAR FIELD MONELS (NEARFD=1,2,3 USE SAME MODEL FOR ENTIRE FLOW FIELD. 


NEARFD=4,5 ARE COMBINED MODELS.) 
50 IPCTRECIS EO, 0.3 GU FO 335 
FACE(ASPEEDAALN(IJISRIJ)ZI LL) eee 3, /2./TKE (J) 
IF(NEARFO .LT. 4) GO TO 108 


SIMILAR REGION = USE YSUYROPIC MODEL 
IF(X(1T) LT, 2.*xCURE) GO TO 105 
NWF D=]} 
GO TO 109 


TRANSITION REGION = USE LATERAL QUADRUPLE FOR NEARFO=4, 
Pe ee Pe USF ISOTROPIC FOR NEARFO=S, 
105 TFCxX(J) LT. XCORE) GO TO 106 
NRFD=e 
IF(NEARFD .EQ, 5S) NRFD=1 
GO TU 109 
MIXING REGION  }}}}©©©—” ee Ce ce ae a 
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a 


sachin 





&—— 4. 





106 IF(UD(J) .GT. .99999) GO TO 107 
_* OUTSIOE CORE = USE LATERAL QUADRUPLE 
NRF D=2 
GO TO 109 


_*# IN POTENTIAL CORE = USE ISOTROPIC MODEL 


i 
P ‘ 





107 NRFO=1 
GO TO 109 


108 NRFO=NEARFD 


| 109 GO TU (110,7120,130)+ NRFO 


| 
{ 
if 
an 





Nee RRRAAAARARRERRRERARRERARRRRAERARRHPRRERRARARREAMRERARRRARRRARRERARAD 
Ts TSOTROPIC TURBULENCE MODEL 
110 PAPREN=C1I*(1,¢2.*FAC+12, *FAC#FAC) 


GO TO 39 





“es LATERAL GUADRUPLE MODEL eee ear. aces rn ee ages THe De 
120 PAREN=CI*7,S#SINTHe eee (COSTHR®2eF AC a (3, * QF AC eee COSTHe# 2-6, eC VMI ® 
x QF ACRCOSTH#UACVMI a2) FF AC RHOR (9, RQFACRSURCOSTHAR2=1R,ACVMI 
X  sQFACHHS*COSTHH9O, #C VMI te oe OF ACae2) ) 
GO TO 39 
i EONGITUOINAL. QUADRUPEE MODEL = =. +... 
130 C2=1,/PAREN##1,5 
PARENSC2e(COSTHRRU+FACH (3, eQFACHR2RCOSTHRRURT2,eC VMI OF ACRCUSTHeAS 
KX @COSTHR Oe (U, HGR CVMI Ae 2) FH AC VMI ®COSTHEe 1.) FF AC Hele (9, OFAC KRY 
X  aCUSTHR GSO, RUF AC HR SRCOSTHR* S96, #OF ACH eOeCOSTHRROR( 1. H9,* 


X CVM1 #82) ¢12,80F ACACVMIRCOSTHH(1 9S. 8CVMIe#2) (Ler detCvMine2)ee2)) 


ay a a ee 


| 
' 
| 
| 
' 
daw 








39 FF.CCVME Jit. «tf? GO TO 33 
C=SQRTC(UF I) 
xO=1.°CVM1 
x1=1.+CVM1 

_ ISUBLECFILOXLI OF TL (X00 703. *#CVM1 eC eee) 
PARENSJSUBI/2.*®PAREN | ee a ae ar 
GO TO 33 


RRR R EERE ERE RARER ERA A ERA RARER ERRARE REAR REAR 


. ae. SVE CEILLEY) _GO_TO 205 de hs 
* RIBNEX S METHOD a gar 
VELA2HTKE CI) AC. 25 *CRIB*(COSTHeeutCOSTHaeseyeU(J)e%2 
® +2, eS *#SQRT(2.)73,*TKE(J)) 
PARENSPARENRSPARENUFI 
PAREN=}],/PAREN##2,5%(8,/27,) 
ene 
L* LILLEY MODEL 
205 VEL22= 2./3, * TKE(J) * DUse6 & (CSINTHRCOSTH) #22 
PAKEN=PAKEN®PARENSUF I 
PAKENE1,/PAREN#&2,5 
| 4 PMPO2=SCPMPO*RHUC J) ##2eVEL22#KLN( J) ##5S/(R( J) *GC) 82 *PAREN x 
[ GO TU $5 zi 
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RRRAAAA RRA A RARER REAR R REE RARER RENAE REREERER REE RRR ERE 


33 PMPO2=ECPHMPOARHO( J) ee ee TRE (CS) #eQeVEL22/(KLN( J) #K( J) #82) *PAREN 
« /(G6C*GC) 
GU TU 35 


PERRET EEA AREA RE RRR RAAT AHA AAHARAEKR ARR AR ARR AEERERAEH ARR ReR RRA 


-# PAQ FAR FIELD NOISE MODEL 


Te DETERMINE THETS1, THETA2, THETAS 
7000 CTRETSS),./(MLOC( J) +A(0J)) 
MOMA=SMLOC(J)eA( J) 
IF(4HS(MCMA) GE. 1.0) GO 10 7050 
IF(MCMA ,GT. 0.) MCMA=1, 
TF (MCMA LT. 0.) MCMA=e], 





_ 7050 IF(MCMA ,LT. 0.) GO TO 7060 





CTRET1=1,/MCMA 
CTHET3=e1, 
GU TO 7065 


7060 CTRKET3=1,./MCMA 
C HETI=el. 
7065 CONTINUE 


PMPO2=0, 

PMPO2P=0, 
TIZSGRT(CAO.73,*#TKECS)ISVIET 
IF CTUY «kts $1885) 6O TO 35 
MACHEVJET/ASPEED _ 
ALPRA=,3 

IFCJETTEM NE. 0) ALPHAZ,S 
MCENT=,64U(01)/ASPEED 

MH BTSOMCENT/MACH 





OMGO=SGRT(465(45M00)) 

IF C.NOT. PSPEC) GO TO 7104 

KLNTZXLNOCJISOCVIET#® ALPHA) 

HMI xXtSAM Excl) 

IF(xC1) GE. XCMKE1) BMIXISAMIXI/2, 

XLNIDEXLNT#U(J)/BMIXI 

XLNDSXLN(J)/S6MIX1 

BSTSMECHAaW (J) *CUSTH/CX 

IF CANGJ(NAL) EQ. 90.) w&ST=0, 

ASOST=1./8.*0 (1 ,-MLOC( J) #COSTH) #@#2¢ (AL PHARMLIIC (J) *CUSTH) e#2) 
x' #xLNTDee? 

STIS eS (4, *tP TL OASUST) a (MRSTeN SORT (RS Taet2eR. eASQST) 
“ST 2tLe/ (4, the OSUST) eC eRSTHeOSURT (CEST eared, eASQST) 
FREGIIJCJIEUC I) #STIscKx 

FRUITS2(S)=UCII*ST2OSCK 
| OMEGIT=2.ePIeSTt 
| OMEG2=2,*P1eST2 

OMEGOLSOMEG LT *#(1.°eML0C(3)*COSTH) 

if OMEGOPSIME bee (1, 9"*LOC( J) *COSTH) a 


) 
) 
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GMGOZA(S) *#20 (1 eCOSTH**QV/C(Le=MLOC (JI *#COSTH) ##2= (ACJ) *COSTH) #82) 


) 





KO =eMACHEOMEGOL/ ACI) | 
KO2T=MACHRUMEGOA SACS) 
K112=MACHeOMEGL*COSTH 
K12==MACH*UMEGO*CUSTH 


“* DECIDE WHICH PAO MODEL TO USE 
7104 [FCCOS4 GT, CTHYAO(CTHETIJV) GO TO 7130 

ie IF(COSA ,GT. CTHP2C(CTHETI)) GO TO 7110 
TFCCOSA GT. CTHMSCETHET 2S) 60 TO 7120 
IF (COSA , GT. CEHP2CCTRHET?)) 6H tO FiO 
| IF (COSA ,GT. CTHM2(CTHET3)) GO TO 7300 
IF (COSA ,GT. CTHPA(CTHET3)) GO TO 7110 
ie = GO FO ihe0s 


7100 IF(PSPEC) GO TO 7105 


t PMPO2=3, ASURT( OC, )#ePL aad SaTT aed aMACH ee Rw AL PHAeed/ (Ri J) eacwh( J) eee 
| KX “#XUN(J)) ®GMQ0eMRAT# 2G *h(S)/(1.=MLOC CJ) *COSTH) } 
i K  /SQRTCACS) #824 (ALPHA MMCENT) #82) #85 

PMP OQ 2P=SPMPO?2 


"“GOoTe 2f06. 

T10S PMPOCSPIT ATT ead eMACHeeRaxXiNTOsS(32,#R( J) at ceAl J) eee XL ND) *QMQ0 
X #COMEGOL®XLN(J)) &#O/ (01 ,°MLOC( J) ®COSTH) #E XP (Cel. 8.8 (KOL® 

| KX XLND) & #24 (OMEGOL*®KLNTO) #82) ) 

| PMPOQPSPT ATI eeUaMOCHAeRAXLNTD/(32,#R( J) ee o2eh( J) ee exXLNO) AOMGO 
KX #COMEGOCHKELN (CT) Deeds (CL eMLOC (CJ) *COSTH) tEXP( 1, /K.*( (K028 
X XLND) 88 2¢(OMEGOS*XLNTD) #22)) 

7106 ITFCMULEN,1) GO TO 7200 
GO TO 7150 


7110 OMFGAZSARSCASPEED/VJET*DUC) 
IFCOMEGA EQ. 0.) GO TO 35 
~ ALO=,35503 jae. 
IF(COSTH EQ. 0.) COSTH=,0001 
DE CESPEC}! GOTO FEES 
PMP02=160.8#SQRT( 2, )ePI ee cet [eed aMaCHeeReAlTOxe Ce AL PHOaee(13,/3.,) 
x ASINTH/COSTH/(9, ARS) He 2eA( J) eaPaxtN( J) ae (4,73. eliMEGAae(1./3.)) 
x #1,355#ARS(COSTH) ##(13.735.) *eMRAT#e (13./3,) 
KX SOOT MLUC (J) *COSTH) a Pe (ALPHA RMCENT&CUSTH) #82) «*# (8,73, ) 
PMPO2R=PMPO2 
GO TO 7116 
T1115 PMPOSSPlaaPaT lL eadaMACHea Rex LN TOeAT Owe 2aSINTH/CUSTH/ (A &R( J) aeek 
X ACJ) ##2exKLN( J) 0# (4,75, )eOMEGhan (1 ./3.)) 
X #(OMEGOL ®XLND®COSTH) #0095075, )701,eMLUC (J) *COSTH) 2*#(16./3,) 
x MEXR COL e/R ACC KLIRXLND) Bee ((IMEGOL*XLNTO) ® 82) ) 
PMPOAP=EPlaa2eT [Le edeMACHaehe XE NTO®ATO®®ARSTNTIM/SCUSTH/ (CK  #R (CS) eee 
KX ACS) #aPexKXEN(C J) 9# (4,73, COME GOeW C17 5.)) 
XH #(OMEGO2*XLNDACUSTH) *e (13,735,701 LOC CJ) @CUSTH) e* (16.75, 
x MEXP COL eSB ( (KL 28 KLND) te 2e((IMEGO2#XLNTD) #82) ) 
7116 TFCMU,EQ,1) GO TO 7200 
60 10 71450 


TLe0 TECPSPEG) GO 10 7127 
BIZP.*#SART(O, J aMCENT AW (I) ®ALPHARCOSTH/(XLN( JS) *SORT(CN, 
| X =MLOC (CJ) *CUSTH) ee e+ (ALPHAaMLOC (J) *#COSTH)*##2)) 
BesHIis/SGRT(2,) 


4 IF (OBUG) 










J 
* AD-A038 614 GENERAL ELECTRIC CO CINCINNATI OHIO AIRCRAFT ENGINE GROUP F/6 20/1 
Ve SUPERSONIC JET EXHAUST NOISE INVESTIGATION. VOLUME III. COMPUTE=<ETC(U) 
JUL 76 D R FERGUSONe M A SMITHe P R KNOTT F33615-73-C-2031 
UNCLASSIFIED R74AE6452-VOL-35 AFAPL=-TR-76-68-VOL-3 


NL 
- rite —-AAaee 








END 





FILMEL 


‘Se 7? 





[ XPRINT 7993, J,B1,82 7 
“7993 FORMAT(3HS1B8,14,2615.5) »»°»°}”}”©© Sk) ee: an: 
L 00 7122 IJ=2,26 z | 
IF(R1 LE. BTABC(IJ)) GO TO 7123 1 
; 7122 CONTINUE 
lJ=26 ] 
7123 FOFBI=10,#*(ALOGIO(FOFB(IJ=1))+(B1=BTAR(IJ=1))8 
E-. ~-¥~(ALOG10(FUFB (1d) )=ALOG10 (FOF B (TJ 1)))7(BTAB(IS) -8TAB(IJ=-1))) me 
| ss pu 7124 ysee20 ne ye 
r 1F(B2 .LE. BTAB(IJ)) GO TO 7125 ee ee eS 
ie 7124 CONTINUE ee Oa), oe eee 


oe on 


1J=26 
7125 FOF B2=10,**(ALOGIO(FOFR(IJ=1))+(B2-BTAS(TJ=1))* 
cS a CALOG1OCFUFRITS) ) = ALOGIOCFOFR(1J=1)))/(8TABCIJ) -8T4AB(TJ=1))) 
PMPOQPES, #SURT(2,) #PI eel SaTI ae edaMACHeeBeAl PHARRU/(R(J)et2eA(J) eee — 





FX aXLNGI)) #OMGORMRATR RUS CUSTHaed | 7SQRTCC1.°LOC(J) a 
Xe COSTH) ##2¢(ALPHA®MCENTSCOSTH) axe) ee5 
PMP O2SPMPO2P*FUFBI/FUFB(1) 7 ee 
PMPO2P=PMPO2PRFUFR2/FOFB(1) 4 
| 


bt ———t97 St Se ak Oe ee Sine Lee 
7127 PMPO2=PIATI RR#URMACHARBEXLNTDS (32, 8R( J) ee 2eA( J) e*2eXLN(J)) *OMQ0 
[ eT ot. 69 ge s(OMEGOIL*XLND*COSTH)*#*#4/ °° 2 ly ae 
X CL eeMLOC (J) *COSTH) #HSEXP CHL ASH CCKLLAXLND) 82 _ 
XK + (OMEGOLRXLENTD) #82) 92 #ABS( WO) RKTI/CX)) P 
' PMPOPPEPI aT I eeUeMaCHeeBeXLNTO/(32,eR( J) ee 2eA( J) e*2eXLN( J) ) xQMQ0 





x #COMEGO2#XLND*COSTH) a ad7 
X (Le eMLOC (J) #COSTH) 8 8SREXP(O1 SBC (KI2XLND) 82 _ 
X + (OMEGO2*XLNTDI*#2) "2, #ABS(H(J) *K12/CX)) § 
_ 7128 IF(MU,EQ,1) GO TO 7200 

Go 10 7150 “Seta ease ee 


ene - 





_* MU = 1, SELF NOISE MU = 2, SHEAR NOISE MU = 0- BOTH 
7150 IFCPSPEC) GO TO 7200 3 ; we > eae ras 
COSTHO=A(J) *COSTH/(1.°MLOC(J) *COSTH) 
TF (CTKET2 «LE. COSA) COSTHO=1. 
_ EF AC SKLN( J) # #28 (COSTHORRUFCOSTHORR2)/(2,*SORT(C.)*(TIAVIET) #A2 
x #MACHA#2) #DUSe?2 
PME 02P=PMPQ2PREFAC 


IFcmMu .EQO. 0) GO TO 7155 
POPGHRMNP ORES er) i era Sky eee eet CS oe 
GO TO 7200 
7155S CONTINUE Se a ; > ess - ae 5 ma 
“7200 PMPO2=PMP02a(PERLUUL/GC) ano Z > Sree 
PMPO2P=PMPO2Pa(PE®i4U,/GC) &#2 


-- ——__—_ a OS eee 





SHARAREAAAAERAPARAARARAARARARRARERARRAARRARAREERARARHERRAARKRNARERRERERES 


Se Se ee en CT ene SS Se ee, See Se ee Ce eve eer | 


C*# COMPUTE ecr- PlJe SPLIJ 


35 PIJCJVECARCRPMPO2*VOLADYNES 
PIJ(J)= BISEOTAT ES SMESECEINY 
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=~ 


fs WES ee 7 
IF(PIJS(J).NE.O.) GOTO 37 “iii ps) gas iN a aac aia cea 
SPLIJ(J)=0. 

GO TO 5500 
37 SPLIJ(JS)=10.#ALOG10(PIJ(J) @PREFN2) 
IF(SPLIJ(J)oL1.0,) SPLIJ(J)E0. 
,___ 40_PSUM=PSUMePIJ(J) Fe ON ea eR nn, 8 Ak 
"Ce 
5500 IF(.NOT. PAO) GO TO 4961 

i PIJ2(J)=CARC PMP O2PRVUL®DYNES 

L PIS2(J)=P1S2(J)/ (1 ME ®COSTH) 
PIJ2(J)=ABS(PIJ2(J)) 

[dF CPTJ2(J) NE. 0.) GOTO 5510 

SPLIJ2(J)=0. 

GO TO 4961 

S510 SPLIJ2(J)=10.#ALOGIOC(PII2( J) #PREFN2) 

IF(SPLIJ2(J) .LT. 0.) SPLIJ2(J)=0. 

PSUM=PSUM+PIJ2(J) 





| 

re 

{ 

i. 

| 

bE -_——- a 5 eee Cte. 
RARER AARARRAAAARARAERRARRERRER RAR ERARARERRAERAEAAAREERARAEKRERRKHRHREKH 

| 

- = —s i eros eg Aas neen eat nek 5 peda ct Sle NGM i pen RASS a Soh asce 

| 


* POWER CALCULATIONS ~ 


hee 


4961 IF(.NOT, APUWER) GO T0 50 


1 
\ 
pe aes UFZ2,*TKE(J)/3. PE ee ee Ae : 
CVML=ECVMACHRUC JS) JASPEED ie ae eae 
hee _UFL=,25*CVMi eg st Ot ee ae ee 2c ee ee 
IFCJETTEM EG, 0) UFLE,09RC VMI a#2 
LTE ONOT. QCONV) UF 1=2,42/3,*TKE(JI/ASPEED*R2 oa =) Pee eee 


IF (CABS(UCJ)©VE) LT. 1.£°2) GO TO 4971 
magli te NOT.RIBNER 2AND, _»NOT, LILLEY .AND, LIGHTH ,EQ, 1) 
~*~ 60 TO 4965S < : 


eis ae CERO Poe oa nee Cnet ea Me oak Be eae em pa a ee 
ise SR REO ee ee es Be a ec ee 
“CSUFI ag a : 
CsSORT(C) _ RO Los CE TS One 
CCH(1.4Cee2) 880.5 
BRIBE BETA/(2,*RHOESASPEED SHS *#GC) 
IF(LILLEY) GO TO 210 : rs 
_IF(RIBNER) GU TO 8110 





AHRAEREPARARRERHRRAARAAERARRERERE RARER RRARR EAA AARRRARRARAR RARER A AEE 
—- + ——— 





_* LIGHTHILL FAR FIELO MODEL pera 
IF(ABS(CVM1"1.) .LE. .05) GO TO 8005 
IF(CVMI GT. .1) GO TO 8001 


! 
| 
: 


IF(C .GT. .05) GO TO A005 
Al1=2,/CC 
“60 10 8009 
, 8001 IF(C .GE, .05 .AND. (CVM1 .GT, «15 OR, C oGT. .15)) GOTO 8005 
| ATLZGI(1.)<Gtl-1.) 
GO TO 8009 ee a 
BOOS ALLECFEILCXLFIL(XO)I/(3.8CVMI RCa2) 
8009 SPUr(J)=(9,/4, #BETA/2,) #RHO( J) ee2eUF aeenU( J) ead bit Ss » 
Ce /CASPEED# #SARMOESKLN (I) AGC) MATT AVOL 


beets caer payee Jopecmiaalecll 





— ee ee 
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ee_ TO S968 ERS ees ee ee EN ab A 


RRAEAAAARARARAARARAARARARAAARAARAAARARARARARAAAAARRAKARAARERAAKAARARAAAARKAKR 


*# RIBNER MODEL 

8110 SPOWL=BRIB*RHO( J) a220(2,/3,* TREC J) ee 3/KXLN(J) 
SNEed. Fe oe PO Os rene) See eee 
IF (ABS(CVMI-1.) «LE. .05) GO TO 8300 


{ 
IF(CVM1 ,GT. .1) GO TO 8190 ~ ae ee. ; 2 : : | 
} 





Al2=1.066667/CC 
IF(C ,GT, .05) GO TO 8350 
411=2./CC 
GOTO 8400, 6 ee Pe ee ee 
8190 IF(C .GE. .05 AND. (CVMi .GT. .15 .OR. C GT. 15)) 
x 6 TO 8300 meee L 
Al1=G1(1,)°G1(-1,) 
Al2=G2(1,)*Ge("1,) 
GO 10 8400 
8300 ALCS(FIA(X1 IF IO(KO))A(CVMI a a5 eC aed) 
"A350 ATI=CFIVCK1)=FIILCX0) 703. *CVMi eC ee) 
n 8400 SPOW(JISCSAQRT(2,) 82,73 .*#TKE (J) #ALIMSE+CRIB/G, UCI) aR2eAT2) 
x #SPOw1*VOL 
_ GOTO 4969 





STs ee Ty 
| 
{ 


| 
| 


oe iain ameeal 


( 
| 

ah tt a apt ln ni cana ac Neto chalet 1 

bad | * LILLEY MODEL 1 

H ~~ 240 SPOni= BRIB*RHO( J) #8 2e(e, 43, FLeTKE(S)) ®OURPORXEN( J) ORS 

ae SNe-1, 4 ee, eee ee eee ee | ee Ne re ee en eee 

5 IFCABS(CVM1e1.) LE. .05) GO TO 250 

IF(CVM} ,GT. .1) GO TO 230 





A13=,266667/CC ep teccpscspstcn ignition 
steerer ct eae _ 
230 IF(C 705 J AND, WMO .Gts ofS «OR. ih ke — 


AI3= een OC BON Re oh TE Pa 
“GO TO 290 

250 ALZECFISCXLISFI3(KO))Z(CVMIARSRC RRO) 

290 SPOw(J)=A413*SPOW1s VOL 

ee SS 


SRRRRARERR ARR RARE REAARARARRAREARARERRAAARRRRARAARARARARRRRRARRARARARARRS 


_* SELF AND SHEAR NOISE MODEL 





4965 JTSJETTEM+T cite “ace ee eae ohana cyt 
STNUMEFREGIJ(J) #OIAJ/12./11166 

—————PIVietssoes : aay ‘ 
IF(JETTEM EQ. 1) DIVI=293.7 —- 
00 4966 L=1,NFRQO Fem oe "EP Es  L, y Oe 


IF(STNUM .LT, FRO(L,JT)/OIVI) GO TO 4967 nde IE Tet a 
4966 CONTINUE : eee ae tae pose 8 
I L=NFRO 





COSTHI=SCOS(THMAXK(L,JT)*P1/180.) Pee Fee 23 eee a Bre LS 
X051.-CVMI as ae 

X121,°CVM1*COSTHI 
x251,9CVM) ar 
TERMIEZFAC(L /L,ITI/CVMI mada (F I CXd mF 1 (KO) eF2(K10X0)) 


HM HZFAC (Leer ITISCVMI ee Sa CF LC XQ) FL CKT) OF 2(K2,KI)) 





TERM2EZFAC (Ly Le ST) /CVMI ASCE 3(K1 IRF S(KO) 4 (059562, #UF 1) #F2(K1 6 XO) 7 

NKR PH ZEAC (Le Qo STISCVMI AS a(R S(CX2) OF S(KLI (Oe de/cetUFL RF O(K2,x1)) | 
TERM3=(YFAC(Le 1, JT)* 
x (X28 (2, eK2*X143,8UF 1) 7 (X1 SK 4UF 1) 881,45 
MK exXO8( 2, #XORK043, AUF 1) /(XO8X0+UF 1) ##1,5) fie - . : i 
x #YFAC(L,2eJT)«& | 
4 (x2a (2. eK2eX2GS HUFL IS(K2RXOHUF LD AALS i 
4 HKLM C2 eXPAKL eS MUP LIS (XE Axieuri)e*1.5)) 
x /(3,*#CVM1 UF 1 *UF 1) 

! SPOW(J)SRETAPRHO(J) #2eU(S) RRUATKE (J) #e2/RHOE /ASPEED®AS/XLN(S) 


ras 





XM  /GC*VOL*.S*(AFACRTERM) MAF AC#TERMA¢AFACRTERMO/XFAC(L, JT) + TERMS) 
GO TO 4969 








RHRRARRRRARRARERRARARARRRRRRRARRERPRRRARRRRRRRERRARHRRRARRAERARRRRRARER 
4971 SPOW(J)=0. ie med i tee ae Si ee eS as Se pe et ye 
- 4969 IF(SPOW(J) .LT. O46) SPOW(J)20. 
SPUwS=SPOWwS ¢SPOW(J) 
| 50 CONTINUE 
c 


"| 
| 
| 
| 
t 





PERFORM 1/3 OCTAVE BAND ANALYSIS IF REQUESTED _ 


| 70 CALL OCTAV3(NPD,ENTRYI) ee ne ae ee En ee ie 4 ee ' 
IF(,NOT, APOWER) GO TO 60 


a “CUNUVERY LO CRE VAGUCCM Lees ea” ee ee Le rTP 
* 
00 6922 L=i,NPD ‘ 
L ...  JUPCSCOWCE Hebe. (CeiGOLTG 6920 6 8 
TERMPPS 1. 355AJE +1 3*SPOK(L) /VOLICLD 
SPOW(L)= =10, *ALOGIOCTERMPP) 
GO TG 6922 
_ 6921 SPOW(L)=0. 
6922 CONTINUE 
09 ANGJJEANGJCONAL) 
Ce 
£* PRINT PROFILES OF YOeR»PIJ/SPLIJ,FREGIJ IF REQUESTED 
Ce 


= ee 


' 
| 
| 
| 
| 
j 
| 
| 
| 
| 
! 
| 
| 


IF (ACOUSP(T).AND,ACSPAN(NAL)) CALL NOISP__ 


___IF(.NOT.APOWER)GO TO 100 dee Se 0 ee eee eee 
IF(SPOWS .E0. 0.) GO TO 99 
_ PO (1) E10. #AL0G10(1.35581E413*SPUWS/DXARCO) 
“POKWTOTZPUNTOT+SPOWS 
GO TO 100_ 
99 PUW(IT)=0, 
, 100 CONTINUE 
Ce OVERALL PROPERTIES FOR GIVEN ANGLE 
PSUM2(NA})=PSUM 3 
m———— FASPL (NAL) 210, ®ALUGIOCPSUM *®PREFN2) 
pee. 


| 
| | 
ru { i 
SC ee ee ae ee) Cae) ee ee 


= ee ee oe 


COMPUTE OCTAVE FREGS SPLS==(USE 1/3 OCTAVE DATA 
Cx i 
CALL OCTAV 


re ens a a a A ha SN NSE 
C*# SUM FOR OCTAVE FREQUENCY SPL CALCULATIO 


—a -- = scene -« —— 


Saree oars 
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C# SN gee Ne he EE AE re ee ee — 
——————— — 


00 20t L=1,8 
an IF(CSPLOC(L»NAL).EQ.0-) GO TO 201 
| SPLOC(LeNAL)=10.#ALOGIOCSPLOC(L+NAL)*®PREFN2) i 
Tr 201 CONTINUE | 


1C# CONVERT BAND PIJS TO SPLS : it <8 Eis I. a ee { 









___ 00 $01 Le1,36 | ‘a ek ee. 2 a ee | 
IF (PIJ13(L).E9.0.) GO TO SO: io? ‘ “oe 
PIJI3(LI=106*AL0G10(PIJ13(L) *PREFN2) : J re, 
FCPIJI3(L).LT.0.) PIJI3(L)=0, LUM sss. lc. 
$01 CONTINUE Rg 5 4 eS = 
“IFC.NOT. PAO) GO TO 5600 
— 00 5550 L=1,36 ne oe = 
IFCPIJ131(L) .€0. 0.) GO TO $555 
PIJL31(L)=10.*ALOGIOCPIJ131(L) *PREFNQ) nie. a2 
FCPIJI3iCL) LT. 0.) PIJIZ1(L)=0, 
S555 IF(PIJ132(L) .£0. 0.) GO TO 5550 Me 
' PIJ132(L)210.#ALOG10(PIJ132(L) *PREFN2) 
IF(PIJ132°0L) LT. 0.) PIJIZ2(L)=0,. 
5550 CONTINUE 
$600 CALL PNOBC 
“TEC.NOT. BANDS) GO TO S00 
: CALL PBANDS 
S00 CALL JTFILN(1,0UMX) 
i: sd ( NAY,LT.NA ) GO TO 2 ; othe bee BH 
MC FINISHED*-= PRINT OVERALL ACOUSTIC PROPERTIES AND 1735 
|C* OCTAVE BAND ANALYSIS 
Ce 
___660 CALL NPRINO ao eee a 
~TFC(NEARFD .GT. 0) GO TO 1000 
_IF (PAO) GO TO 1000 en Tar eee 
POWTOT=10.*ALOGIO(L, $5581E +1 3*PGWTOT) 
00 800 L=1,36 
IFCPOWS(C).LE. 0.) GU 10 799” 
___ POWS(L)=10.*ALOG10(1. e39S81E 41 3*#POWS(LI). Pd» Tak ay a ee ee 
GO TO 800 
_ 799 POW3(L)20. 
800 CONTINUE 
CALL PWPRNT 

















a 

1000 RETURN 

"7990 FORMAT(S020.5) | 
ENO 








ea ae NE En eet ee ancients ins ee ee | 
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#DECK NPRINO PS ty" 29m ; 1 
; SUBROUTINE NPRINO err e ae oe ee 
_CNPRINO SUMMARY PRINT@*OVERALLe* FAR FIELD NOISE 

LUGICAL PAO 

LOGICAL RIANER,LILLEY f } 
| LOGICAL TPUNCH | 
OIMENSTION PLITIVGG2) = Sy SS . ae Eat. 

LOGICAL 4x],xXPRN,CMPRS,QJET, TURBJ»NOISEC, BAND 

REAL MJET,ME»MUREF f 

COMMON/NOISE7/SCALJ,CVMACH,SCALT,RIBNER/CRIB+LILLEVs SE, PAO’ MU 
| COMMON/NOISLI/JETTEMsLIGHTH, OUMMY (338) »NEARFO Asc See oan SPR, 

' COMMUN/NOIS12/TSPL (36420), TPUNCH \ 

—_COMMON/NOTSES/SPCTRM( 36,9) | 
CUMMON /NOLSE1L/ ‘ 
* NOISEC,ASPEED+ NA, SLINE » ANGJ (20) ¢PSUM2(20) OASPL (20) sPREFN¢RANDS 

















i COMMON /INPJET/ ‘ 

| * O1AJ » MJET + TJET + PTJET ‘to | 
& TIJET ’ 1 

a. Se ee Sa! ee ea, ‘ 
* AX] o NJ « NM 

* ¥(100) e XPRN(100) : : can a 
* GAM o RG 7 PR ¢ PRT ’ 

* SC » TREF » MUREF =a 
COMMON /TAG/NAME (10), TITLE(10), IDENT( 10), ADORES(10),/IDENTI (10) 

1 COMMON ZPROF/ PSI(200),¥(200),0UMPA(600)) £9 a lope 
COMMON /CTRLZ NXTA,DUMCR(14),/NPD,OUMCR1 (603),R(200) | 
COMMON /NOLSE2/ PIS(200)+SPLIJ(200),FREQIJ(200), Woes ee | 
X PIJ2(200),SPLIJ2(200) ,-FROIJ2(200) { 
COMMON /CBITS/ BITS, BLANK + en eee 
COMMUN sNOTSES/ PNDB(20) , SPLUC(B,20) 

_______ COMMON/NOTSER/APOKER,POW(L00) POWTOT,SPOW(200) Pi et 
COMMON /CENTRY/ NA1,XS,ANGLE { 
LOGICAL APOWER rae. a ee a 
COMMON /NOTSE9/INP( 36) »POWS( 36) 

OATA NANG/O/ cs : eee Oe ee 
DATA PLTTIT/10HSPL VS. FRe3HEQ,.,8*1M »3HSPL,GHFREG/ 

Ce 

“Cs SUMMARY PRINT OF GVERALL ACOUSTIC PROPERTIES UF JET. —s 

_C# INITIALLY PRINT JET AND FREE STREAM CONDITIONS ss rrr 

ce 

1 XTREFSTREF F te Le oe C. OBA Set 
XMUKEF SMUREF ; Sle ai a io eee ewe ee tes Gy 
ister WC REREC Nba Oey CO t0us — 0 tes oe a es Se ee 
xSCESC PS 
XTREFSBITS eile Ae ee et. (eee 
XMUREF sBITS ad 

u XSCZBITS ; ue op o> ae yar 

Ce 

ee ML A | ae Sy ee a eee 
1F(.NOT, PAD) GO TO 70 x eae ae Ae, ose’ ee 
MULSMUel 
GO TO (71-7375), MUL nee he Ske tbe 

__ 7O_IF(LILLEY) GO TO 89 Oe ee eee > ae ee 
1F(RIBNER) GO TO 68 
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BT er ae eG eee er ee ee ee | 
TE CLIGHTH £0. 1) GO TO 82 
81 WRITE (6.91) St A ee i 
91 FORMAT(SUxX,2SHLIGHTHILL FAR FIELD MODEL) | 
GOD 10 90 ! 
B2 wRITE (6,92) 
92 _FORMAT(S0X,34HSELF ¢ SHEAR NOISE FAR FIELO MODEL) _ 
j GO TO 90 
\ 80 GO TO (83,84,85,86,87), NEARFD 
B3 wRITE (6,93) 
93 FORMAT(UAX, S7HISOTROPIC TURAULENCE NEAR FIELO MOOEL) _ 
GO TO 90 
B84 WRITE(6,94) Te ee ae ee ee ee 
94 FORMAT(SOX, S4HLATERAL | QUADRUPLE “NEAR FIELD MODEL) 
i GO TO 90 
85 WRITE(6,95) ~ 
95 FORMAT(47X,39HLONGITUDINAL QUADRUPLE NEAR FIELD MODEL) 
GO TO 90 
| __ 86 _ WRITE (6,96) ees a eee Se eh 
“96. FORMAT ( $0, T3HCOMBINATION | NEAR FIELD MODEL USING LATERAL QUADRUPLE 
. x IN TRANSITION REGION) ne de PAS, Phe \) SS ee 
GO TO 90 
87 WRITE(6,97) wre rR 
97 FORMAT(29x,76HCOMBINATION NEAR FIELD MODEL USING ISOTROPIC TURBULE 
_..XNCE IN TRANSITION REGION) 
GO 10 90 
88 WRITE( 6,98) za 
98 FORMAT(S6X,22HRIBNER FAR FIELO MODEL) 
GO TO 90 “ 
89 WRITE (6,99) 
99 FORMAT(SOX,22HLILLEY 
GU TO 90 
71 WRITE(6,72) 5 : at Me ge ed, 
72 FORMAT (48x, 36HPAO SELF + SHEAR NOISE FAR FIELD MODEL) 
7 GO 10 90 oa, 
73 wRITE (6,74) 
74 FORMAT(S2x, 50HPAU SELF NOISE FAR FIELD MODEL) 
GO 10 90 
75 WRITE(6,76) - “ : gpietinstes 
76 FORMAT(S2x,3J)HPAO SHFAR NOISE FAR FIELD MODEL) 
90 Bat Al (6,108) NAME,ADDRES,TITLE,TOENT,IDENTL, 
TE, DIAS, GAM,PE,MJET,RG, 
VE, TJET,PR»ME,PTJET/PRTA TIE »VJETAXSCeTIVET, 
os g XTREF, XMUREF oe 


| 
ree ESReyoe | 


— See: ee ee a a re 








> 
2 
n~ 
- 
m 
c 
° 
= 
Cc 
° 
al 
c 
— 











| 
| 


Ce 

“Ce PRINT FAR FIELD NOISE PARAMETERS a aS ys ae 

Ce 

i 4 WRITE (6,109) PREFN,ASPEFD,SLINE © - si 7 
WRITE (6/110) (LeANGJ(L) /PSUM2(L)-OASPL(L)/PNOB(L)> 

; MMELUC LORE POS REOST Lethe)! Ce 

i GO 10 10 aan ul SPE Oe ae 

[Ce 70 a ar ae oe ha a Pe a ae a a . z arf i 


| Ce JF BANOS=, TRUE. PRINT RESULTS OF 173 OCTAVE 
C*® BAND FREQUENCY SPECTRUM ANALYSIS 


Ce 
r “ENTRY ee ea ce a re 
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SSW GRU Mae tees near sk es Od Ca Se Neer rm rere ret 
ANGSANGJ (NANG) /57.2958 | 
OIA=OFASs12, ‘. ; poe amas 1 
XCOR=SSLINE/SINCANG) ®COS(ANG)/014 
YCURZSLINE/DIA 
RANSSORT(XCOR*#2¢YCORs#*2) 

"Bl os faleso Mi han aa, a as oS 
25 TSPL(I,NANG)=SPCTRM(I,5) 
30 CONTINUE ; aes pats SS Eee ach Gok mele aaaamaa 
WRITE (6,199) XCUR,YCOR,/RAD,SLINE+ ANGJ (NANG) 
IF(PAQ) wRITE (6,198) Pies ee ty 
198 FORMAT(1H+,69X,6X,4HNPTS,5X,9HSPL » DB 46X+4HNPTS,SX,9HSPL » DB / 
X 76x, UHSELF,7xX,UHSELF,8X,SHSHEAR,7XeSHSHEAR) ia 2 
DO 250 121,36 a 
WRITE (6-200) (SPCTRM(I,J),J=1,5) _ 
250 IF(PAO) WRITE(6,201) (SPCTRM(IeJ),J=609) 
201 FORMAT(1H+,69X,110,F14.4,110,F 14,4) 
CALL PRNPLT(SPCTRM(1,2),SPCTRM(1+5)436760.0180e+PLITIT) ; 
wey 10 RETURN ei eu ey 
cs | 
T Career enaeenakeeeeeeeeeeeeake FORMAT STATEMENTS keer eatteetieeehaee 


| C# 


~ NANGENANG#L 


eager ee \ ata 1 ahem 
’ 
| 





———— ee See eer nn af 


i eae Tia os a 


100 FORMAT(1M1,40xX,S1H® JEerT ANALYSIS PROGRAM- 


# *//,30X,614* SUMMARY ACOUSTIC ANALYST | 
S$ #//1) en nee ee 
108 FORMAT (30X,10A67,30%410A67, 30%, 1006/4 30X,10A6/4 30%, 10ROS/7p 





52,2AH® AERODYNAMIC PARAMETERS «#//, 

Sex, JIHEXTERNAL CONDITIONS, 3x,24HJET DISCHARGE — PARAMETERS, | 
SX,1GHGAS PROPERTIES//,32x,GHTE =,F14,3,6X, 

OHDIAS oF 13.55%, 6HGAM =,F13.5/,32X> 


“GHPE =,E14.4,6X,OHMJET =,F13.4,5X, 
6HRG =,F 13.54, 32X,-4HVE =,F14,3,60X,6HTJET =,F13.3, 
SX, 6HPR =eF 13.57, 32x, 4HME Vv 
£13.4,5%,60HPRT =eF13.5//32X,4HTIE=,E14,U, 
OX, 6HVJET =,0PF13.3-5X,6HSC =oF13.3/7456Xe. 
OHTIJETS6E13.4, 5, OHTREF =,F13.3/,80X, 


=e e+ eo Pe ee ee 


“OHMUREFS EL 3.47/77) 
109 FORMAT(SOX,32H* FAR FIELD NOISE PARAMETERS *//, 
* USK, 3LHREFERENCE PRESSURE (PREFN)= ere 
= *# USX,31HAMBIENT SUNIC VELOCITY(ASPEED)=,0PF16.2/> 
# USX,$IHSIDESLINE DISTANCE (SLINE)= A i 
* 2, 1HN, 2X, LOHANGLE /DEG,+4X,11HSOUND PRES,,5X,8HOASPL,DB, 
4 6X, BHPNDB, DH, 25x,27HOCTAVE CENTER FREQ(HZ)=SPLS7 





® 63%, GH(63) 4X SH(125) 4X4 5H (250) 4X4 5H(500) , 3X, 6H(1000) 6 3Xy 
® 6H ( 2000) 13X64 (4000) 8X 6M (B000)/pO1X,7HARREHRE, IK, he tee 
® Teer eae, 2X, Heetaaae, OX, THAR RRA R HL 2K, THARRRERRLAXY 
& THe we aenes Qh, THRHaeeae, 2X, THPeenaee, //) 
110 FORMATC(IX,1LQrFILeSrEL7eOeF 12.4, F14,4,F 11,34 7F 9.35) 
199 FORMAT(1H1,24xX,24H1/3 UCTAVE BAND “ANALYSIS//7/7o 
Be KX SX,OHK/D = FAL Se SK, 6HY/D = ,FA,5,3K,6HR/D = ,FB.3/ 
ie * Sx, LBHSIDELINE DISTANCE=,F14,2,160X+6HANGLEZ SFB .C//y 
* SX, 1 SHLOWER FREG,HZ, 3K, 14HCENTER FREQ, HZ2,2X%,1 3HUPPER FREQ, HZ, 
# 3x,4HNPTS,SX,8HSPL » DB) 7 “ ee ‘~ 
200 FORMATCFISs1rFlOsteFlOsteTIOeF14.a) 
Ce 
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"C# ENTRY NOISP(XSJe=* PRINT PROFILES OF PIJ,SPLIJ-FREQIS AT es 
C* A DISTANCE R FROM THE SUURCE s 


ENTRY NOISP 
KPOW = 1 f 
1F( APOWER ) KPOWs2 


~— 

ao 

* 
| 
| 
| 
} 
| 
\ 
| 
| 
{ 
} 
} 
{ 














ce ; 
[300 WRITE (6,400) 
| NSTART=4 Peed Bee ae Pt IA, Sage Se 
[ NLINES=NPD_ ; 
a BE ENE SNE SeGlis SO PONG ENE S30) 0c eo ee 
NLSNLINES 
| GO TO (306, 3066) ,KPOW oi eens 
306 WRITE (6,410) XS,SLINE,ANGLE 
IF(PAQ) WRITE(6,412) eee + se 
f G12 FURMAT( TH+, 70X, 7%, 3HPIJ,7X,P8HSPLIJ, 0B, 5X, 9HFREQIU,HZ/ 
fH STK, GHSELF 6 9X p UHSELF  9Xe UHSELF o 10X¢ SHSHE ARs BX, SHSHE AR? BXeSHSHEAR _ 
x) 
See Re) ate aes BS Ae ae 
3066 WRITE (6,411) XKS,SLINE, ANGLE | 


, 3067 NENDSNG 
| ASSIGN 360 TQ LGOl 
3070 GO TO (307,5077),KPOW 
307 DO 310 LSNSTART,NEND 
bie. WRITE (6,420) Lo V¥(L)-R(LI+PISCLI,SPLIJ(L) »FREGIJ(L) | 
“310 IF(PAQ) wRITE(6,422) PIJ2(L),-SPLIJO(L),FROIJe(L) 
— . 422 FORMAT(IH+, O9X,E15.4eE12.4,F 12,2) | 
GO TO 3078 
3077 WRITE (6421) (LeVCLIFRCLIPISCL)»SPLIJS(Le | 
® FREGTJS(L),SPUn(L)»-LENSTART,NENC:? 
ee Ee ae | ee ee 
Ce @ 
360 IF(NPD.LE.5S0) GO TO 390 
WRITE (6,400) 
GO TO (361,362),KPOW OB Se es OS ee se ee ee ee 
36} WRITE (6,410) XS,SLINE, ANGLE. 
__ IF (PAO) WRITE(6e412) 
“GO TO $63 
_ 362 WRITE (6/432) XSpSLINESANGLE 
363 NREMNZNPDENL 
IF(NRMN,GT, 50) GO TO 365 
NSTARTENEND OL a 
NEXTSMINO(S0,NRMN) 
NUMRCONG RT lO sae Re i: Cea Weekes ap ae oe 
ASSIGN 390 TO LGOI s 
NENDENL ; Fre PT 
GU TO 3070 
365 NSTARTSNENDOL 
NENO=NL 450 
(ORM OU Ui SESS lee Ps ee ae ee 
i GU TO 3070 
390 RETURN er 
Ce 
Canaeneearaenaanaeantaeaeee FORMAT STATEMENTS aah aRehtkee eee aeeeneene 
Ca 
400 FORMAT(1H1,35X,26He JET ANALYSIS PROGRAM @7/) ~~ 7 7 


— a ee ee ee ee ee ee —-= 





tien 
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~* @ See lBHSIOECINE DISTANCE=,FR. 2,15, 6H4NGLE Sp FB .O/7, 
® BX,LTHN, IX, THY, LOX, SHROF TL, 9X, SHPIJ, 7X ep AHSPLIJ/ DB, 
* Sx, GHFREQIJ,H2Z) 

420 FORMAT(TS,E14.4-F11.2-E615,4,E612.4eF 12.2) 

G11 FORMAT(21X,18HACOUSTIC PROF ILES#*+17X/2HXSeF100S//e : =e i 

_ * SX,LRHSIDELINE DISTANCE=,FB,2¢26X,6HANGLE=,FB.2//, | 

® 3X, 1HN, 9X, LHY, J OX, SHK,FT,, 9X, 3HPIJ, 7XpBHSPLIJSeDBy 
* S¥,9OHFREQIJ+HZ¢2X,16HPOWER (PWL) » DB//) 4 

B21 FORMAT(IS,/ELQSUs FIL .2,ELS Ur EL2e4eF 1 eeee a ae : 
* Fl6.6) 


| G10 FORMAT(21X,1BHACOUSTIC PROFILES*+17%,2HXE,F10.9//4 7 
=e Scan ce a a ova 
| 
! 


— 
| 

r 

| 

' 


~— 


Ca 
[Cass ENTRY TO PRINT ACOUSTIC POWER ANALYSIS 
rcs PPE ad Ce ee aan ee aa oa areas 
ENTRY PWPRNT = 
WRITE (6/610) POWTOT — 


. . ag ————— - a mga ian rns im Sen = = 


,/C# PRINT STATION POWER LEVELS 
~ WRITE (6,611) (x(C),POW(L),L=T,NXxTA) 


[ea PRAT Pettis ee ccs” OC 
[Cr 

f WRITE (6,612) 5 striae et caree mia ee Pee 
|___ WRITE (64613) CedecTRneE 3, ger Sy euhtry POWRtt)s ~ 











“* 121,36) 
lee 


"Cases FORMAT STATEMENTS — 
610 FORMAT(1H1,19X,38H*® SUMMARY ACOUST I Cy 
* SX,35HP O WER ANAL YS 1S  #877,35X- — a 
____*35HTOTAL ACOUSTIC POWER OUTPUT OF JET=, F15.601X/BH(PWL),DB///, 
~ #O3X, 34HPOWER OUTPUT PER JET RADIUS LENGTH//7TK, LHX e1oKe 7, re 
HSHPOWER, 12K, THX, 12X/SHPOWER, 12X41 HXe 12X,SHPOWER, 12x, 1HX, 212Xy 


QS 





1SHPOWER) 
O11 FORMATCFIL 6S rFLOcOr FIG SrF1Oebr FIG. Sy F 16.60 F 14650 F 16,6) 
612 FORMAT(//4U5xX,30H1/3"OCTAVE BAND POWER SPECTRUM//, 
#23K,13HLOWER FREQ, HZ,3X,14HCENTER FREQ,HZ, 
* 2x, 1 SHUPPER FREQ, HZ, 3X, 4HNPTS, 5X SHPOWER/) omens 
613 FORMAT(20X,F13.1,2F16.1,110,F 13.6) 
RETURN 
__ENO 
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'eOECK OCTAVS ne Sen boas ; 7 
CTUCTAVS “1/3 QCTAVE BAND ANALYSIS = 
SUBROUTINE UOCTAV3(NP,ENTRY1) 
LOGICAL PAO 
LOGICAL ENTRY : : ; 
COMMON/NOISE2/PI5(200),SPLIJ( 200) ,FREQIJ(200) -P1J2(200), 
[ SPLIJ20200)-FRGIJ2(200) | PP se 
| COMMON/NUISE S/FL (36) 0FC( $6) ,FU( 36), 1N(36)45P( 56), 1N1 (36) ¢SP1 (30) 
X IN2(36),SP2(36) 








4 

| COMMON/NOTSE 7/DUMMY(7),PA0 ; 1 

i COMMON /NOISES/ PNDB(20) ,» SPLOC(8,20) | > | 

i COMMON /NOISEB/APOWER,POW(1007,PO0WTOT,SPOW(200) 

LOGICAL APOWER aaa | 
| 
| 





COMMON /NOTSE97INP( 36) ,POW3( 36) 
__.. COMMON SEENTREZ NAT RS ANGI. ee ee ee 
REAL LTAB(22r6), MTAB(22,4) 

— REAL NOYS,NOYSUM,NOYSM,NOYBAR | 

| OIMENSION FREQ( 30) 
_OIMENSTON QTAB(132), RTAB( 8B) 
EQUIVALENCE ~(LTAB(1),QTAB(1))> (MTAB(1),RTAB(1)) 
_ DATA FREQ/ 
® 1162714610178 2204428627 3565744677500 3% 570097 89e2e 
MDS ede LOe p20 er 2D ge 31S rp KD pS0 er Oder BO ee 100ge na 
BING 17 Be 2204p 2B 624356574467 7506541069, B92 2,11 ‘2.7 








mapa 


oe 
le 





|. 


ae ye “ENTRYI) GO TO 10 





INITIALIZE ARRAYS 


-* © 





—~y——-— 
aaa 


~ 2 ENTRY1=,FALSE. 
El NN) ae a ee 
Catt SETM(1,0.,SP,36) 
_ CALL SETM(1,0-IN1, 36) 
~ CALL SETM(1-0,IN2,36) | 
CALL SETM(1/0.-SPt1, 36) 
CALL SETM(1,0.,SP2, 36) 
IF (NOT. er Omen) oe TO 611 al a 
CALL SETM(1-0,INP, 36) 
_ CALL SETM(10.,P0W3,30) a pal te 
oii CONZ1, 
5 ech ee Ba Vie NS. en ee ere < aera toe 
OO $ L=1,36 
IF(L.EQ,11 OR, LeoEG.2t .OR, LEG.31) GOTO 3d 
GO TO O35 i 
33 J=1 
CON=10.*CON 
35 FL(L)=CON*FREQ(J) 7 
~~ FE(L)SCONSFREQ( S410) *) 
FU(L) SCON*FREQ(J420) 
t—38 =J+ 
H 3 CONTINUE 


| 

| 

Ce 7 ee ar ee . Va “ae oe ele ; ¥ 
| 


| 
ne 





1 
| 
| 
1 
| 
| 
i 
— 








meee Deere! eeneeey Vee 














Ce 
* SCAN FREQUENCIES == SUM SOUND PRESSURES 
10 00 100 L=1t,NP 


Sasi 
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00 25) J=1-36 
IF(FL(J) .GT. F) GO TO 30 
25 CONTINUE 
J=Jet : 
30 IN( Jel SINC Jol) +1 
Utes ) celal # SEO AC BUS aaah Diese 0 ate ar aera et ae 
IF (.NOT, PAQ) GO TO 37 
IND (Jed) SINI (Jet eon - ot 
SP1(J=-1)SSP1 (Jel) +PIJ(L) 
{ 37 IFC.NOT, 4POWER) GO TO 40 4 
\ INP( Jel )SINP( Jol) 41 : 
bu POUR Sad PEON NE Te LSERPONECY 
40 IFC.NOT, PAO) GO TO 100 4 
| FEFROIJ2(L) er = 
IFCF JET. FLC1) .OR. F .GT. FUC36)) GO TO 100 
D0 50 J=1,36_ : 
IF(FL(J) .GT. F) GO TO 60 


__50_CONTINUE oe 
60 IN2Q(J-1)=IN2( Jot) 1 er Se = ee, a, | 


[saree Ev, FUCTX. OR, fF 67. FUCIO)T Go TO ee anes 
i 
{ 





= 





J=Jel 
SP2(Je1)=SP2(Jeo1) +PIJ2(L) 
= IN(Je1) SINC Jel) +1 ~~ o 2 gn te de 
SP(Je1)=SP( Jel) ¢P1J2(L) 
_ 100 CONTINUE _ MS I on tO mae ae Lae 3] 
RETURN Sa aa — ——— 
Ce 
“Ce COMPUTE OCTAVE SOUND PRESSURE LEVELS 
-C# START AT 63 H2 








i Cr cee en da a eel 
Yer 


LTI=LT+2? 

00 400 L=1,8— 

PSUMO=0, i 

OO 4O1 K=LT,LTi ; | 

401 PSUMO=PSUMO + SP(K) 4 
{ 





~" SPLOC(LeNALSSPSUMO ie eT AER Ba mgs 
ats, LT=LT+3 a ee a ie ee eee : PR SEO ON nN . 

LTLELTI¢3 ¥ ‘ a ahr ied 
_ 400 CONTINUE 
Ce 
Mt 1A, 3. 
Cr . 
C# ENTRY PNOBC== PERCEIVED NOISE CALCULATION (PNOB) 
Cr 





Ne | 


| ENTRY PNOBC 
DATA QTAB/ fad ic he 7 
Ge SV ep S4 ee SD epee rede rQlenl Bor Stl bon 
WSerl2crPeeSer ber Ser Ger lOeocler 
i Sep FO er Ger SG eo Sb er Sb er S0 ere eo Dp SHOS ae : : = : : | 
| ee ee oe ere ae ee Pee eee ee) { 
| CU ee ie si rc a ee ee) 
BR er SU er Slee SD er 2t2G% er 0 ee SL ee Slee 
65 .86,87.52+79,85, 79476075 496,73,964 74,91, 


3 “#® 94,63,158100.044,29, ee el" Se a ae aes 


pean as saat a i 


seer Pe eee 
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Lae EU Cy en ee td ee ee oe oe oe eee Ao ad ke ees ee ee 
® BB ee Ser SP er SD er eHOF er 30 ee SL er SUe/ 

DATA RTAB/ 
# 2%,.06816,.05964,10%, 05301 3,.05964,2%.053013, 


ee ee ee | 








# 2%,047712,2%.05301 54, 06816, 2.07952, 

# ,058098, .0522KK,,047534,28.043573, 040221, | Be a 
037349, 7%, 034859, 040221, 037349, 4%. 030859,2%, 057549, et 

* 604057,2#,0564 314.0355 36028, 033333, : ‘ AS 
* 60520514 6030575,6%,030103,7%,02996, 042285, ] 
* 14%,030105$,8%.02996/ : pate Poe > -4 | 
Cr 
[ce CALCULATE NOYS VALUES Le (eee, wos 

* 

{ NOYSUM=O, : - Pia 2 : 
NOYSM 30, 
: L827) Ne me nee 4 Weta et : Po - 

00 200 L=1,22 
ji EBS ER eR A = ee eee ee | 
SPL1=SP(LB) 
Ce - ! 
"Ce LOCATE SPL1 POSITION IN TABLES ! 
Ce 


DO 201 K=1,5 
IF(LTAB(L+K).Gi.SPLiy GO TD 202 
0 CONEENRUE-.. “5 amr f= 
202 IFCK.NE,1) XMEMTAB(L,Ke1) 
GU TO (210,211,212,213,214) 4 K 
210 NOYS=0, Le ioe ee ; Qe: 
F GG TO 220 ‘i arose © 
211 NOYSE,1#10,#8(XM*(SPLI“LTAB(L,K=1))) 
ys SGU T Rhee Oem ee ue Nine abi as 
212 NOYS=10.#*(XMA(SPLI“LTAB(L,K))) 
GO 10 220 
213 NOYS=10,*#(XM#(SPLI“LTAB(L,K=1))) 
GO TO 220 





pa) Neretee 








Ce 

“C* COMPUTE NOYSUM,NOYSM 

Ce 

~ 220 NOYSMSAMAX1 (NOYSM,NOYS) 





Ce 
Ce COMPUTE PERCEIVED NOISE LEVEL (€PNDB) 
Cr 

230 NOYRAR=0,AS*NOYSM* .15*NOYSUM 

IF (NOYHAR,GT..0625) GO TU 240 

PNDR(NA1)=0,.0 
id LT a a a a 
240 PNDE(NA1)=40, * 33,22*e4LNGIO(NOYBAR) : a | 

RETURN | 





[ee 


‘Ce 
ENO 


1146 











'sDECK PRNPLT Tre 
; SUBROUTINE PRNPLT(X,Y,NETS/ YMIN, YMAX,HOL) 


~- 


SSS 


| 
| 


sce See 


INTEGER FRMARY 
(MODS CIT), Lal, 101) /3H1H+, Oe SHIH, SHIH+, 9 SHIHM, SHIHt, OR SHIH, 
SHIH+ Fe SHIH@, SHIH+, 98 SHIHM, SHIH+, IR SHIHM, SHIP, IR SHIHS, 
BAL He, Ge SH i He, SHI HE, Fe SHI He, SHI HE, Ft SHI HO, SHINES 
DATA (NMOOSCT) + Ta1e1 OL) /3H1LHIT,9* SHIH SHIH, 9k SHIH ¢ SHIHT,983HIM 
BRIRT Ye SHIM SHIH, Oe SHIT SHIR] OR SHIM p SHIT 9X 3HIN , 
SHIHI,9*3H1H pSHIHI,9*®3HIH p> SHIHI/ : 
OATA (FRMARY(I),] 
CATA ISYMB/ 3$HIHX/ 


WRITE (6,901) 
FORMAT (62x, SHRANGESSIX,E12.5-4h TO 
O.,05# ARSC YMX@YMN) 


00 20 I=1,6 

YMNGFLOAT(T#1) #20, 8DEL TAY 

WPTTE (6,902) HOLC1I) + (YLAR(T) + 12146) +HOL (12) 

FORMAT (1X, MOrIKFELS eS SCAR ELAS) /1 Xe Abr TKeIM Te SCL9K IMT) 





PRINTER@PLOTTER ROUTINE 


_____—CYMIN, YMAX = 


~~ DIMENSTON X(1)-Y(1)-ROL(12),MODS(101)+NMODSCIOL),FRMARY(104), 


+ SHIRT, 9* SHIH 


ae | 


“PNDEPENDENT VARTABLE ARRAY, DATA 15 ASSUMED 
AND EQUALLY SPACED, 
ONE =TO*ONE 


INCREASING 
OFPENDENT VARTABLE ARRAY, 
CORRESPONDENCE TO X ARRAY, 
NUMBER UF DATA POINTS ((xX,¥) PAIRS), 
LOWER AND UPPER ROUNDS FOR DEPENDENT 
“VARTARLE SCALE, DATA wILL BE SCALED 
INTEPNALLY IF HOTH ARE SET TO ZERO, 

12 WORD HOLLERKITH ARRAY, 


WORDS 1°10, 
DEPENDENT VARTABLE AxIS LAREL, 
INDEPENDENT VARIABLE AXIS LABEL, 





21,2)/0H(1H EL, 6H2.561X/,/F RMARY(104)/14)/ 


~ WRITE (6,900) (HOLCT)+1=1,6). 
FORMAT(IH1,28xX,6A10//) 


IF CYMIN,EQ.0.0.4ND,YMAX,EG.0.0) GO TO S 


AMINICYMN,Y(T)) 
AMAXI (YM, YCT)) 
YM, YMX 


_=_ (YMX*YMN)/100, 
DELTY2 = DELTAY/2, 








i ho 8% Jad, hers on : Dt Se ee SO a ee ae ee ee a a es ] 
| “TF OMOD(T*1,5).€G.0) GU TO 30 4 
DO 25 1FR=3,103 3 : ae =. | 
T 25 FRMARYC(IFR) = NMODS(IFR]2) 
60 TO 40 < ——s ‘ = 

30 DO 35 JFR=3,103 | 
35 FRMCRYC(TFR) = MODS(TFRe2) Ce Ac ee ee eT 
40 YG = YMN@DELTAY 
L ON 4S 1v¥eie101_ 
YG = YGeDELTAY 
' Y¥GPD2 = YG*DELTY2 


F LEC .NOT.CABSCY(C1L)©“YG) LT,DELTY2.OR,Y(I).EQ.YGPD2)) GO TO 45 
' Ferary(Ty+e) © ISYMB x ae 
GO 10 50 
E 4S CONTINUE Ce Sn I Me ies I ee SS Cate 
| S50 wRITECOeFRMARY) xX(E) 
$5 CONTINGE . x a See oe po po EH oe = S 


RETURN 
_ENO 





ee 





oe 
ae 1 ae 
Se 
Sree ee 
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